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RE PRESENTS. 



Cini« to?d 

The fallen Time Lord, who presumptuously calls himself The Master, is at large. 

The elders of Waldrom have supplied you with the hyperspace-worthy vessel 
Tardus, and commissioned you to eliminate the evii "Master". Your resources 
include clones who will fight for you, the formidable CRASER weapons of the Tardus, 
and magic weapons such as Fusion Grenades and Borelian Matrix Crystals. 

Traveling through hyperspace in search of the evii one, you will encounter Time 
Eaters, Neutron Storms, and other alien creatures and phenomena. Entering real 
space to search planets, you will encounter still other dangers. You will enter native 
settlements to buy food and supplies — or to fight for survival. 

And once you find The Master can you destroy him? 
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TStHPi^llX 

6 Soulh SI .MiKord. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 



Based on Dr. Who of PBS fame. 
Apple Integer Basic, 
Disk, 48K . . . $29.95 
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TSEHARDSIDE HAS IT ALL 
IN ONE! 

How many times have you wished that there was a single source for '^- 
your personal computer needs? Well look no further, TSE- 
HARDSIDE, located in pleasant New Hampshire, has virtually every 
conceivable item for your micro. Whether you're shopping for your 
Apple, Pet, TRS-80™ or Atari, TSE-HARDSIDE has it all. We stock 
hardware, software, books, magazines and specialty items for all of 
the popular machines. So the next time you're out shopping for your 
system don't be surprised, be satisfied. Remember the name TSE- 
HARDSIDE as your choice for quality, service and reliability. 
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6 South SI .MiKord. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 
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FANTASY AT YOUR FINGERTIPS 



AUTOMATED 
SIMULATIONS 




TEMPLE OF APSHAI 

Limber up your sword arm and don your breastplate for 
a journey to an underground dungeon loaded with fierce 
monsters and exotic treasures. Equip your character and 
head for the subterranean ruins of an insect-worshipping 
culture. 

S-80 Cassette: 16K, Level II $39.95 

S-80 Disk: 32K, TRSDOS $39.95 

APPLE Disk: 48K with APPLESOFT in ROM $39.95 

PET Cassette: 32K (old or new ROMs) $24.95 

DATESTONES OF RYN 

Rex the Reaver and his band of cutthroats have abscond- 
ed with the precious datestones from the ducal calender and 
your job is to recover them. Not only must you explore the 
cavernous lair of the robber band, but you must also face 
an assortment of monsters all hungering for your blood. 

S-80 Cassette: 16K, Level II $19.95 

S-80 Disk: 32K, TRSDOS $19.95 

APPLE Cassette: 32K with APPLESOFT in ROM or 48K 

with APPLESOFT on cassette $19.95 

APPLE Disk: 48K with APPLESOFT in ROM $19.95 

PET Cassette: 16K (old or new ROMs) $14.95 

MORLOC'S TOWER 

You have to thwart the evil necromancer Morloc, who 
has vowed to destroy your hometown of Hagedorn at the 
rise of the new moon tonight! 

S-80 Cassette: 16K Level II $19.95 

S-80 Disk: 32K $19.95 

APPLE Cassette: 32K with APPLESOFT in ROM or 48K 

with APPLESOFT on cassette $19.95 

APPLE Disk: 48K with APPLESOFT in ROM $19.95 

PET Cassette: 20K (old or new ROMs) $14.95 

STARFLEET ORION 

Starfleet Orion provides you with the framework of 
space combat and a dozen scenarios to choose from. Ex- 
haust those scenarios and you can begin to create your own. 
Your own imagination is your only limit. 

S-80 Cassette: I6K Level II $24.95 

S-80 Disk: 32K $24.95 

APPLE Cassette: 16K or 32K with integer BASIC in ROM 

(2 program versions supplied) $24.95 

APPLE Disk: 32K with integer BASIC in ROM $24.95 

PET Cassette: 8K (old or new ROMs) $19.95 



INVASION ORION 

Your computer would like to battle you in outer space. 
You name the time, place, and scenario, the computer will 
take you on, no questions asked. You command a starfleet 
and must pit all of your tactical skills to stay on top of your 
opponent. 

S-80 Cassette: 16K, Level II $24.95 

S-80 Disk: 32K $24.95 

APPLE Cassette: 32K with APPLESOFT in ROM. . $24.95 

APPLE Disk: 48K with APPLESOFT in ROM $24.95 

PET Cassette: 16K (old or new ROMs) $19.95 

RESCUE AT RIGEL 

You are entrusted with the rescue of human hostages who 
have been seized by the High Tollah and are being held on a 
secret base circUng the planet Rigel where dastardly ex- 
periments are being performed upon them. 

3-80 Cassette: 16K Level II $29.95 

S-80 Disk: 32K $29.95 

APPLE Cassette: 32K with APPLESOFT in ROM or 48K 

with APPLESOFT on cassette $29.95 

APPLE Disk: 48K with APPLESOFT in ROM $29.95 

PET Cassette: 20K (old or new ROMs) $19.95 

Atari 32K Cassette $29.95 




HELLFIRE WARRIOR 

Four more levels of dungeon have been discovered 
beneath the Temple of Apshai region. These four levels are 
populated by Undead, Demons, and an assortment of 
thoroughly nasty types. There is also a good deal of 
treasure down there, but not many have survived to report 
about it. 

S-80 Cassette: 16K Level II $39.95 

S-80 Disk: 32K $39.95 

APPLE Disk: 48K with APPLESOFT in ROM $39.95 
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EDITORIAL 




by Jon Voskuil 

"How do I code thee? Let me 
count the ways...." 

It's true that programming in 
BASIC is often more of an art 
than a well-defined science. 
There's room for much difference 
of style among programmers, 
much variety of "artistic 
expression" in the way we code 
ideas into program Unes. 
Nonetheless, the end result of our 
programming ought to be that our 
ideas and logic are EXPRESSED 
through the code we write rather 
than being OBSCURED by it. 
There is a difference between 
subtle programming and obscure 
programming. 

Most of the programs which 
appear in SoftSide are written by 
you, our readers — not by 
professional programmers. The 
work you do reflects a tremendous 
amount of creative energy. This is 
just encouragement to do what you 
do... with style. Following are some 
specific suggestions for polishing 
your programming style — 
whether or not you submit the 
results to us for publication. 

1. Use lots of subroutines. Some 
programs are short and simple 
enough not to need them, but most 
could be greatly improved with 
more of them. Think of your 
program in terms of a fairly short 
main control routine, which calls 
one subroutine after another to do 
the various tasks within the 
program. Each subroutine may, in 
turn, call other subroutines. If you 
can reduce your program to 
building blocks like this, it shows 
that you have a good grasp of the 
logical structure of the whole. It 
makes programming a LOT easier, 
greatly simplifies debugging, and 
results in a growing supply of 
subroutines which can be 
transplanted with little revision 
into another program to do similar 
tasks. Not only that, but other 
programmers will find it easy to 
follow the logic of the program — 
as will you, when you go back to 
revise it a few months later. And 
those further additions and 
revisions (even translation into 
another BASIC dialect) will be far 
easier to do when the flow of the 
program is revealed, rather than 
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hidden, by the coding. 

2. Use Hne numbers to help 
structure your program. For 
example: A typical pattern for me 
is to begin the main program on 
line 100, and try to END it by line 
990. Lines 10-98 are reserved for 
short, frequently used subroutines 
beginning at multiple-of-10 hne 
numbers. (The statement GOTO 
100 must therefore precede line 
10.) The lines 1000 and up are for 
the subroutines that do the real 
work — usually beginning at 
multiple-of-1000 line numbers. 
Line numbers are generally 
incremented by ten, with these 
common exceptions: short 
subroutines and text-printing 
sections which might be 
incremented by only two or five, 
and logical breaks in the program 
where I might jump to the next 
multiple-of-100 Hne number. A 
renumbering utility can be a 
terrific asset in cleaning up a 
program once it's completely coded. 

3. This is really derived from the 
above two suggestions, but bears a 
separate number all by itself: 
Group ALL subroutines at the 
beginning and/or end of the 
program. In my humble opinion, 
practically nothing makes a 
program harder to follow than 
mixing subroutines into the flow of 
the main control routine. (Yes, 
there are exceptions.) 

4. Use memory-saving and 
keystroke-saving techniques in 
moderation. Specifically: 

a. One-letter variable names 
are short and sweet, but longer 
ones are often worth the extra 
space. A name that suggests the 
use of the variable is a form of 
documentation that can make the 
whole program easier to follow 
(although this can be overdone too). 

b. Long lines of coding are 
occasionally necessary, but often 
make it very difficult to follow 
what's going on. Use them 
sparingly; the few extra bytes of 
memory for another line number 
are seldom significant. 

c. Lack of spaces — especially 
in those long lines — can make a 
program just about unreadable. 
Some computers (such as Apple 
and Atari) put spaces in program 
lines whether you type them or 

continued on page 1 1 



NATIONAL TRS-80^ 

MICROCOMPUTER SHOW 



.■ V'/ ... 



New York Statler 

Exposition Hall 

(opposite Pennsylvania Railroad Station 

and Madison Square Garden) 

7th Ave. & 33rd Street 



May 21, 22, 23, 1981 
Ttiursday Noon to 6 PM 

Friday 11 AM to 6 PM 
Saturday 10 AM to 4 PM 



For the Businessman, Educator, Professional and Hobbyist. 

• Commercial Exhibits and Sales of Microcomputers, 
Software, Books, Magazines, Supplies, 

Parts, Printers, Etc. 

• Free Seminars 

• Famous Name Guest Speakers. 

• User Groups. 

(Mod I, II, III, Color and Pocket Computers). 

• Door Prizes - A TRS-80® Computer will be given 
away free each day, plus other prizes. 

Avoid standing on line - Send in your registration today! 

Radio Shack and TRS-80 are registered trademarks of Tandy Corporation, which has 
no relationship to Kengore Corporation or The National TRS-80 Microcomputer Show 



REGISTRATION FOR TRS-80® MICROCOMPUTER SHOW 

May 21 , 22, 23, 1 981 New York Statler Hotel 

Name Title 

Company Name 



Address 



City, State, Zip 



Please send 



registrations at $10.00 each. 



Send To: 

Kengore Corporation, Dept. 80 

3001 Route 27 

Franklin Park, N.J. 08823 



(Registration Badge will be sent to you on May 1st.) 

Co-sponsorecl By 



^SO 



miccQcomputing 



(Be sure to enclose 
check or money order.) 
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INPUT 



Dear SoftSide; 

In the May 1980 issue of SoftSide 
there was a program listing called 
"Fifteen Game". Since the listing was 
short and I was learning how to use 
my new Apple, I tried typing in and 
running the program. The program 
ran, but there seemed to be a bug in it. 
The number which was being moved to 
a new location was not blanked out in 
the old location. I kept waiting for 
someone to send you a correction to 
the program, but either no one did, or 
someone did and you didn't print it, or 
somehow I missed it. Well, in any 
event I finally felt compelled to sit 
down and figure out a solution to the 
problem which I now share with you 
and which you may share with the rest 
of the world. 

510 IF N(I,J) = GOTO 640 

640 HTAB 8/1*5-1 

650 VTAB 2 / J * 4 

660 PRINT " " 

670 GOTO 540 

David Royce 
Hazelwood, MO 

Dear SoftSide, 

The following is a small idea that I 
have found very useful, so I thought I 
would share it with you and my fellow 
readers of SoftSide. 

Every time I type in a program from 
a magazine, such as SoftSide, I will 
either lose my place and type half of a 
line wrong or mess up a data statement 
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INPUT POLICY 



SoftSide Magazine welcomes your 
comments and thoughts on both the 
magazine and the field of microcom- 
puting. We try to publish as many of 
our readers' letters each issue as we 
can. 

For the sake of clarity and legibili- 
ty, all letters should be tjTDewritten 
and double-spaced. Send your letters 
to: 



SoftSide Publications, 

Input 

6 South St., 

Milford, N.H. 03055 

We reserve the right to edit any letters 
prior to publication. 



so bad that I end up scrapping the 
whole thing and starting over again. 
Then it occurred to me, why not get 
my brother to read the lines to me as I 
type. Well this works, but not too well . 
I find it difficult to tell his "b" from 
his "d" or "e". To solve this little 
problem I dug up the tape recorder 
that I had cast aside when I bought my 
Disk II. Now when I wish to type in a 
long program I read the lising with the 
recorder on, then replay the recording 
when I'm ready to type. Now all I 
have to do is watch the screen and not 
look back and forth from listing to 
screen to listing again! On my recorder 
I have a pause button which I find 
very helpful. If you happen to have a 
nearby stereo that plays cassettes you 
may wish to put on the headphones 
and ignore all the knocking at the 
door, telephone calls, and the 
numerous other things which seem to 
distract you every time you sit down to 
type in a program. 

Randy Reeves 
Cypress TX 

Dear SoftSide: 

I am the district media supervisor for 
a school district of 3200 students and 
406 staff members. Early in August we 
requested an evaluation copy of 
SoftSide magazine. The issue we 
received was the September issue. We 
were so impressed with the single 
magazine instead of one for each 
computer area that my staff 
recommended that we subscribe. I put 
it into my evaluation file. Later that 
week I took the time to go through the 
magazine. Wow! Was I impressed. 
Each article was well-written and easy 
to understand. I also liked the idea of 
telling the reader which article dealt 
with the different types of computers. 

The article which really caught my 
eye was the one by Mark Pelczarski 
titled "SoftSide's Developing Data 
Base". We put this program into our 
Apple and started to use it that very 
day. That article helped us decide to 
subscribe to your magazine. Mark has 
done a super job with this data base. I 
have called him several times with 
problems and he has always been more 
than willing to assist me with the 
problem at hand. 

I talked to Mark the other day and 
he informed me that the series will end 
in March. He also said that there was a 
great deal more he would like to add 
to the data base but two more articles 
will not be enough space to make all 
the additions he wants. 

We have made great use of the data 
base program and many others in the 
magazine. At this time I feel it is one 




of the best computer magazines on the 
market. Keep up the good work and 
we will continue to subscribe. 
Thank you. 

Don G. Erickson 
Lebanon, OR 

Dear SoftSide, 

"Little Brick-Out" is one of the 
extra goodies that comes with the 
purchase of an Apple II + . Alas, once 
you've aced-out the game (knocked out 
all of the bricks on the first ball) it 
loses much of its appeal. 

The easy modifications listed below 
introduce a new dimension — "dead 
spaces". A dead space is an area at the 
top and bottom of the usual paddle 
range which the paddle cannot reach. 
Depending upon the "Skill Level" 
selected, you will have to guide your 
shots to avoid having the ball hit in a 
dead area. At Skill Level 2, two ball- 
widths at the top and bottom become 
unreachable; at Level 3, three ball- 
widths; and so forth up to five ball- 
widths at Skill Level 5. (At the Level 
there are no dead spaces and the game 
plays the same as the original version.) 

Since any dead space significantly 
increases the game's difficulty, this is 
reflected in the scoring. The higher the 
Skill Level selected, the greater the 
points/brick and the larger the bonus 
for remaining balls. 

Restrain paddle travel up (TSO) and 

down (BSl) 
30 OQ= Q: Q= INT(39- Q/6) 
32 IF Q < TSO THEN Q= TSO 
40 IF Q > BSl THEN Q= BSl 



Update score based upon skill level 
280 K9= 2 * INT(K/2): VEIN 
K9, K9 -I- 1 AT I 

282 19= 1/2-9 

283 19= 19 -I- 19 -TSO 

284 S= S -(- 19: VTAB 24: 
HTAB 8: PRINT S;: 
VTAB 23: HTAB 1 
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Decide if all bricks are gone (SS = 
Basic Max Score) 
340 IF S < SS THEN 250 

Award bonus points based upon skill 
level (TSO also = level) 

1540 FOR Q= TO L * (50 + TSO 

* 30) STEP 5 
Enter skill level (TSO), set top and 
bottom dead space (TSO and BSl), and 
set Basic Max Score (SS) 
2224 HTAB 9: PRINT "SKILL 
LEVEL? (0-5) ";: 
INPUT"gg";TS0 
Note: "gg" here indicates two 
CONTROL G (bell) characters 

2226 TSO = ABS(INT(TS0)) 

2227 IF TS0>5 THEN TSO= 5 

2228 SS= 720 + 720 * TSO 

2229 BSl = 34 - TSO 

2230 PRINT 

Jeff Hurlburt 
Houston, TX 
Dear SoftSide: 

In your February 1981 issue, there is 
a column by Scott Adams ostensibly 
concerning software pirating. I hope 
Mr. Adams is more CEU^eful in his 
programming than he is in his thinking 
about this problem. 

Pirating is defined in the lawsuit he 
mentions in his postscript. It has 
nothing to do with the argument he 
had with the man who offered to give 
a friend a copy of a program. Pirating 
involves taking the creation of an 
author, copying and then selling it 
without the authorization of the 
author. 

When Mr. Adams contracted to 
write a column for SoftSide, the 
contract was not only with the 
publisher but with the public that reads 
his column. If he actually perceived the 
"English High Court" decision to be 
on a case analagous to the one he 
argued with the fellow copying a 
program for a friend, then I suggest 
that he stick with programming in his 
column and leave the heavier subjects 
to people who know what they are 
talking about. If, on the other hand, 
he knew full well that the case did not 
apply, then he owes an apology to his 
readers for his attempt to mislead 
them. 

Did he ever lend a friend a book and 
then feel guilty about the money that 
was not going to the author? Would he 
suggest that a snow thrower company 
sue the three neighbors that chipped in 
and share one machine? Would he 
close all libraries? Would he outlaw 
VCRs and tape recorders? How much 
does Mr. Adams pay Tandy for 
creating a market for his programs? Or 
is he leeching off of their huge 
gamble? 

The problem with Mr. Adams and 
his ilk is that they fail to see anything 
but their own parochial interest. They 
easily forget what they owe to their 
contemporaries and predecessors.. I'm 
sure Mr. Adams never inquired of 
Microsoft if he could use their BASIC 



in his programs. How much has he 
contributed to Dartmouth? 

The fact is that Mr. Adams lives in a 
community and not by himself, and he 
gets from and gives to this community. 
I would suggest that, to-date, he has 
taken much more than he has given. 

I believe program pirates should be 
arrested and jailed. But, let's be quite 
precise about this; it does no one any 
good to completely confuse the issue. 
The pirate attempts, in an organized 
manner, to seize the market of the 
legitimate producer. What one friend 
gives or lends to another is neither the 
government's nor Mr. Adams' 
business. 

Eh Passin 
New York, NY 

Dear SoftSide, 

I discovered a problem in one of the 
games featured in the November issue. 
The program was "Meteor Storm", 
and the problem is that the player can 
render his spaceship impervious to 
meteors by placing it over his score in 
the upper left-hand corner of the 
screen. This problem is encountered on 
the S-80 version of the program. 

This problem can be solved by the 
following changes: 

120 PRINT @G," ";:PRINT @ 

RND(62)-l-960,"-F" 
150IFPEEK(L) = 43or 
PEEK(L-(-l) = 43 or 
PEEK(L-f2) = 43 then 195 
155 Print @ 0, PO; 
195 Print @ 0, PO; 
These changes should solve the 
problem. 

Dan Singer 
Washington, DC 

Dear SoftSide: 

I own an Apple II computer, and 
have been a faithful reader of your 
magazine, SoftSide: Apple Edition, 

since it came out. In your days as 
separate magazines, there was only one 
adventure game for the Apple 
computer, that being "Dog Star 
Adventure" in the very first issue. 
Seeing your new format, one larger 
magazine, I hoped that this would 
mean some better games for the Apple. 

Indeed, in one respect, there have 
been many very good games for the 
Apple computer. Unfortunately, I have 
seen no adventure-type games. But, 
almost every issue there has been an 
adventure game for the S-80 (I am 
refraining from using the common 
term, TRASH-80). Some of these 
games are: Dr. Livingston, In Search 
Of; Mad Scientist; and Kidnapped, in 
only FIVE magazines. 

I hope I speak for many Apple 
owners when I say that I am 
disappointed that there have not been 
any more adventure games since the 
very first issue. I hope this letter will 
influence a change in policy. If it does, 
I, for one, will be overjoyed. 

Ben Cohen 
Jersey City, NJ 
continued on bottom of next page 



OUTGOING 
MAIL 



by Dave Albert 

Hello. I'm a new face here, if 
you'll pardon the expression. 
Perhaps I should say a new voice. 
Whatever, this is my space for a 
while to talk back at you, the 
reader. With all due respect, you 
need it sometimes. What I would 
like to do in this space is open the 
door to the editorial office and 
invite you into the inner workings 
of SoftSide. I don't promise a 
cook's tour every month, but I 
would like you to get to know us, 
what we are and how we work. 

To begin with, I'll introduce 
myself. I'm Dave Albert. For lack 
of a better title, I'm referred to as 
the Managing Editor. Depending 
upon the extent to which you read 
our magazine, you may have run 
across my name at the bottom of 
an editoral or at the end of a 
review. You have not, and will 
not, find my name at the top of a 
program for the simple reason that 
I am not a programmer. I am an 
editor. My background is in 
newspapers primarily, with 
freelance writing experience tossed 
in somewhere along the line. What 
I actually do is unclear to most, 
and an absolute mystery to me. 
But if the magazine doesn't get out 
every month, I know who's in 
trouble. 

Some of my predecessors, most 
notably James Garon, have made 
attempts at explaining just what 
goes into putting this magazine 
out. But their explanations just 
dealt with the mechanical aspects 
of the process. In future columns I 
will try to let you in on how we 
decide what goes in the magazine 
(a dart board), how we get the 
submissions ready for print 
(trained spiders in inkwells), and 
why some programs don't run (so 
that the ones that do run will look 
better). 

I will also try to answer some of 
the more frequent complaints 
and/or queries from you folks. 
With any luck I might even 
disabuse you of any notions you 
may have about our 347 person 
editorial staff! You can forget 
about the last two digits of that 
figure if you want to get close to 

continued on next page 
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continued from previous page 

the truth. To show my sincerity, 
here's one for you: 

We have received a number of 
complaints about an incomplete 
listing for a program called 
"Boing!" It was a valid complaint, 
there were some lines 
missing... however, there are some 
extenuating circumstances 
involved. To understand them you 
first need to understand our 
procedure in getting a program 
ready to publish. 

We start out by getting a 
working version of the program up 
and running on a computer. Once 
that is accomplished, (not an easy 
task), we then document it by 
using another program that puts 
the one we're working on into a 
word processor file and allows us 
to splice the documentation right 
into the listing. That program, call 
it "64", had some problems, one 
of which was that it tended to get 
hungry and eat the last few Hues of 
a program. We don't splice Atari 
documentation into the program 
itself any more, and we did get the 
S-80 side of the program 
straightened out, but not before 
losing lines from "Convoy" and a 
couple of other programs. Like 
anyone else, we learn from our 
mistakes, but we do make them. 

Now, if the people who actually 
paste up the magazine were 
programmers, things Uke this 
would get caught... but if you hire 
programmers, it is so that they will 
do programming, not paste up. 
The production department gets 
program listings handed to them 



ready to be photographed and 
pasted into the magazine. 

The editor who handles the 
documentation just splices it into a 
WORKING program and dumps 
out a Hsting on a Hneprinter. Until 
the complaints started coming back 
to us, we had no reason to suspect 
that lines were being dropped at 
the end of the listings. Now we 
know. The procedure has always 
been to make sure the program 
ran, then to splice in the 
documentation. Now we check 
them out AFTER we document 
them, as well as before. 

Furthermore, the editor that 
prepared "Boing!" for publication 
has since departed for sunnier 
climes. He wasn't around to 
supply the fix. The disk with the 
working program got lost in our 
moving the editorial office to 
another location. We simply did 
not have a working copy of the 
program. As soon as we got it 
straightened out, we started 
mailing it to those who had written 
in. Others managed to fix it 
themselves. For those that didn't, 
it is published in this issue in 
"Bugs, Worms and Other 
Undesirables". 

But there's yet another side to 
this affair. About 90% of the 
complaints we receive are based on 
bugs that DO NOT exist. I know 
that sounds self-righteous, but I sit 
here all day reading complaints 
and running them down. They are, 
by and large, spurious. People 
don't type the programs in 
precisely and then complain that 
they don't run right. After a few 



hundred of those complaints flash 
by, it's easy to assume that the 
latest Bug letter is probably due to 
a bad job of typing. 

The point I tried to make in 
responding to a letter on the Input 
page was simply that we do not 
type programs in. The errors are 
not the result of poor proofreading 
or typing. When we find mistakes, 
we try to correct them. But some 
mistakes are totally unanticipated, 
and until we know how they occur, 
there is not much we can do about 
them. That is where you, the 
readers, come in. Write to us; let 
us know the problems you 
encounter. But when you do so, 
please give us as much information 
as you can: What system you use, 
what medium (disk or cassette), 
where you think the problem is, 
etc. Don't fly off the handle, it 
doesn't help you or us. We are 
trying to put out the best magazine 
that we can, and we do not have a 
large staff at all. We will continue 
to make mistakes, it is just the 
human thing to do. But we try to 
fix them and we try to keep you 
happy. Sometimes in a moment of 
frustration, after spending hours 
typing in a program, one can get 
angry when it doesn't work. But 
remember that at the other end of 
the hne there are plain, ordinary 
(if somewhat talented in one 
respect or another) people, 
working as best they can. An 
angry letter won't get any faster 
results than a calm one. You catch 
more flies with honey than with 
vinegar. 



© 



continued from previous page 
Dear SoftSide: 

I wonder if you have ever had reports 
on how well your tapes work on the 
Model III. I have a Model III with 48K 
and two disk units as well as my 48K 
Model I with disks. I have recently 
received three tapes from you and I 
have tried them on the Model III. 
First, the Model III doesn't give a hoot 
where you set the volume control on 
the recorder. Get it within wide limits 
and the tape loads! Here is my report 
on the tapes: 

November: 

Everything went fine until I got to 
the "Card Draw." It wouldn't run. I 
listed it. Lo and behold! The first line 
says: 999 CLS:END. The book doesn't 
give this. EUminating this and running 
"Out of String Space in 1030" came 
up. So I didn't get it working. On 
"Cards", it worked but it would not 
start or stop the recorderj. 

December: 

Everything worked fine until 

6 



"Kidnapped." Listing and comparing 
with the book showed a comma 
replacing a paren in line 200. I changed 
this and everything worked fine. So 
this one was 100%. 

January: 

The first program "Convoy" gave 
trouble. It initialized forever. I listed it 
and line 100 was goofed up. I reran 
the tape. Line 100 is still goofed up. I 
checked with the book. The 22 slashes 
were missing and were replaced with 
the gibberish. I retyped this line and it 
still initialized forever. So this one was 
a loss. The other programs worked 
perfectly. 

Now it may be something other than 
the Model III that prevents these few 
programs from running properly. But 
these are the results I got with them. I 
like the Model III very much. While one 
does not have to "CMD"T" anymore 
it is necessary to POKE 500 baud. I 
have had some difficulty converting 
Model I disks to Model III, basically 
Machine Language programs although 
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I have converted many machine 
programs okay. It seems that if it is 
along program, trouble ensues. 
Tapes convert to disk excellently. I like 
it but it would have been nice if I had 
the Model III to begin with. 

I thank you for providing these tapes 
with the magazine. The cost is well 
within reason, and the results are 
excellent. I might tell you that I have 
two Model I Level I which I loan to 
school children to get them interested. 
It has worked in almost (but not all) 
cases. 

Again thanks. I just thought you 
might like a report. 

Andy Anderson 
Holton, KS 

Editor's Reply: Thanks for the report, 
it's always good to get such items. As 
far as "Convoy" is concerned: 
Whoops! We dropped a few lines. 
They are printed in the "Bugs" section 
of the February issue. It should run gm. 
fine if you add them. *y 






BASF FlexyOisk ' 1 

^to. 

Sewtws soft 

RecortJ t.9f>gth 128 Bytas 







More thaii four decades of experi- 
ence in magnetic media- BASF 
invented magnetic recording 
tape, the forerunner of today's 
wide range of magnetic media, 
back in 1934, and was the first 
independent manufacturer of 
IBM-compatible floppy disks. 



Tough Tyvek sleeve - no paper 
dust, no static electricity. 



Special self-cleaning jacket and 
liner help eliminate data errors 
and media wear and tear. 




BASF BAiFRexyDisi 



Center hole diameter punched to 
more accurate standards than 
industry specifications, for top 
performance. 



Bi-axially oriented polyester 
substrate — for uniform and reli- 
able performance year after year. 



Cross-linked oxide coating -for 
low head wear and long trouble- 
free media life. 



Total capability — one of two man- 
ufacturers in the world that 
makes both 8" and 5.25" models, 
has tape and disk experience, and 
manufactures floppy disk drives. 



Double lubrication -lubricants 
both in the formula and on the 
disk surface, to minimize media 
wear due to head friction. 



Packaging to suit your 
requirements— standard flip-top 
box, Kassette 10® storage case, 
or bulk pack. 



100% certification— every single 
disk is tested at thresholds 2-3 
times higher than system require- 
ments, to be 100% error-free. 



For the name of your nearest 
supplier, write BASF Systems, 
Crosby Drive, Bedford, 
MA 01730, or call 617-271-4030. 




BASF 



Floppy Disks Mag Cards Cassettes Computer Tapes Disk Packs Computer Peripherals 
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MODIFYING STRING VARIABLES 




by Benjamin Junge 

Have you ever created a drawing 
on your video screen tliat was so 
fantastic tliat you had to save it, 
one way or another? 

Unfortunately, this exasperating 
situation has hit me many times, 
especially when I don't expect to 
come out with a good picture and 
I am totally unprepared. There are 
a few ways to do it. 

First of all, you can place the 
ASCII values of each character on 
the screen into an array of 
subscripted variables. But in order 
to do this, you have to put a DIM 
statement somewhere in your 
program before the preservation is 
done, which takes an immense 
amount of memory. Then when 
you turn off the computer, the 
variables are cleared and your 
masterpiece is lost forever. 

The second way to "save the 
screen" is to print the ASCII 
values to tape or disk, but that 
takes so much time that you would 
be asleep when the saving finished. 
There are some other methods, but 
most of them are either time- 
consuming, or insufficient in doing 
the job. 

The one way that will 
accurately, and fairly quickly, save 
the screen, is called "Super 
Graphics". The term. Super 
Graphics, refers to using string 
variables to print out some sort of 
display. This process may be 
accomplished by determining the 
location of the string in memory, 
and then POKEing the ASCII 
values from the video into the 
memory occupied by the variable. 

In TRS-80'" BASIC, finding the 
section of memory at which a 
string variable is located is done 
with the VARPTR(X$) function, 
where X$ is the variable being 
examined. VARPTR does not 
return the actual variable storage 
memory location, but a series of 
three values that will help you find 
the correct memory location. This 
system of storing one memory 
location in another is called a 
pointer, or variable pointer 
(VARPTR) . 

The value stored in 
VARPTR(X$) is the length of X$. 
The second and third memory 
locations (VARPTR(X$)+ 1) and 
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(VARPTR (X$) + 2) contain the 
Least Significant and Most 
Significant Bytes of the actual 
variable storage area. In order for 
us to retrieve the actual memory 
location for X$, we must 
manipulate an arithmetic formula 
properly. The formula is: 

10 A = VARPTR(X$) 
20 B = PEEK(A-l-l) + 256 
♦PEEK (A + 2) 

This example will return the 
actual location in memory where 
X$ is stored in the variable B. So 
now that the exact storage area for 
X$ has been established, we can 
actually alter the contents of the 
variable. 

For example, if you wanted to 
preserve the first line of the video 
screen (63 characters), here's what 
you would do: 

1 . Establish a string variable, 
let's say A$, so that it has a length 
greater than 63 characters. 

2. Now determine the memory 
location of the storage area for 
A$, with the formula shown 
earlier. 

3. Set up a FOR-NEXT loop that 
will read the character codes from 
the first line of the screen and 
POKE them into A$. 

The following program 
illustrates the procedure described 
above in more detail. 

10 'THIS PROGRAM WILL 



PUT THE FIRST LINE OF THE 
SCREEN 

20 'INTO THE VARIABLE, A$ 

30 '**PRINT SAMPLE 
GRAPHICS PATTERN** 

40 CLS:FOR A = l TO 100 

50 SET(RND(127), RND(3)-1) 

60 NEXT A 

70 CLEAR 64 'SET ASIDE 
MEMORY FOR A$ 

80 A$ = " 

90 A = VARPTR(A$) 
100 B = PEEK(A-l-l)-l-256 
*PEEK(A-l-2) 

110 FOR 1 = 15360 TO 15422 

120 POKE B, PEEK(I) 

130B = B-I-1 

140 NEXT I 

150 PRINT @ 192, "NOW A$ 
CONTAINS THE GRAPHICS 
SHOWN ABOVE. A$ = " 

160 PRINT AS 

After you have altered a string, 
it will appear as BASIC 
commands. Do not be alarmed. 
This is normal. Just one 
suggestion: Try to avoid EDITing 
lines that contain Super Graphics. 
If you do so, the string will no 
longer print the specified graphics, 
but the words that show when 
looking at the variable in a listing. 
(Check SoftSide, December, 1980 
for a method of editing Super 
Graphics. The Editors.) Play 
around a little! This is a pretty fast 
method, and you may find it very 
useful. (^ 



S-80 ONE LINERS 

1 IF DX=0 THEN CLS:DX=l!H=RI«)(23):P=IM)(0)tGOTQl ELSE X=X+DX'.IF 
AES(X)>63 THEN H=RND(23);F-1+RND(1)!DX=-DX;G0T01 ELSE Y=HxSIN(.fl 
5XPIX) tSET(X+63,Y+23) iOlTOl 

Terry Higman 
Arlington, WA 



1 CLEAR 900:CLS!FORG=lTO127!S»=S$+CHRt((RND(63)+128))+".";NEXTG: 

FORQ=iToiooo!PRiNTs$; :nextq:run 

Ray Dashner 
Pasadena, CA 



1 CLEAR100:CLS;FORG=lTO5;S$=S$+Cf«*((RM)(63)+128))+" "IfOTG;F0R 
Q=lTO93!PRINTei013-P,S$;p=F+li:NEXTQ:P=0:FORX=lTO1500{NEXT;PRINT 
80" "I !FQm)=lT016!PRINTSTRING$(61f3EXTV!RUN 

Ray Dashner 
Pasadena, CA 
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continued from page 4 

not, but others (such as the 
TRS-80 ") don't. 

d. Use REMarks. Although 
we purge programs of REMs 
before we pubHsh them in 
SoftSide, that's not because we're 
philosophically opposed to them. 
We think it's clearer, for 
publication purposes, to document 
them as we do. But you may well 
want to add REMs to programs 
that you copy from our pages, 
inserting the notes and even the 
variable lists that we provide. I 
generally reserve the line numbers 
ending in "9" for REMarks, to 
state the purpose of the following 
lines. Although some of these end 
up being deleted when the program 
is finished, they do help during 
development, and the most helpful 
ones are left in for future 
reference. 

None of the above suggestions 
are chiseled in stone. Programs are 
written every day which ignore 
every one of these, and which 
nevertheless work perfectly. The 
issue for us as programmers is 
whether we're content just to do it 
any old way, or whether we want 
to aim for the satisfaction of ^^ 
doing it with style. ^J 



Programming 
Hints 

For a really micro micro-word 
processor: use the following 
routine: 

1 A$ = INKEY$: IFA$ = "" 
THEN 1 ELSE LPRINT A$: 
GOTO 1 

While this processor doesn't 
have any editing commands, it 
is extremely useful for adding 
notes to program printout or as 
a short memorandum. 

When using string packing 
techniques for graphics or 
machine language routines, you 
don't have to type the 
traditional 

A$ = "////////////////////". 
The program will still work with 
a simple A$ = STRING$(20,75) 
or whatever the conditions you 
have are. This cuts down on 
screen "garbage", and saves 
memory as well. 

Shane Causer 
Brunswick, GA 




VINYL 
BINDERS 

Collectors! Prolecl your SollSide back 
Issues, Volumes I and II, or any publication of 
your choice, with these durable wood-grain 
vinyl binders with inside pocket and clear 
spine sleeve tor easy identilication. Holds 
and protects 12 t)ack Issues. A regular $4.95 
value, SALE priced al $3.95". FREE (while 
supply lasts) with the purchase ot Volume I or 
II (12 Issue collection ol SottSlde). 




TSeilHPIRDSIIX 



6 South St .Milford. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 



Sports fans 



Enjoy two of your favorites without leaving home! 




written by 

David Boike 



MASTERS GOLF 



Tired of golf as a sport you can only play during the w/armer half of the year? 
Now you can play It year 'round with MASTERS GOLF! For the Atari and the 
S-80, MASTERS GOLF promises hours and hours of delight. 

(S-80 version originally published as "Protour Golf") 

S-80/Atarl16K Cassette $9.95 



WORLD SERIES 



Ah yes, it's springtime and a young man's thoughts turn to... baseball? How 
would you like a baseball season with no threats of player strikes or free agent 
negotiations that leave the shattered remnants of once-mighty teams strewn 
about the playing fields? We offer you your own league. Batter up! 

S-80/Apple/Atari 16K Cassette $9.95 

Apple 32K Disk $14.95 



fflS ^^^ 
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6 South St .Milloro. NH 03055 (6031673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 
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Setde for More 
from^KmrlRS-SO 



BASIC Compiler, with trs-8o basic 

Compiler, your Level II BASIC programs will run at 
record speedsl Compiled programs execute an 
overage of 3-10 times faster than programs run 
under Level II. Make extensive use of integer 
operations, and get speeds 20-30 times faster 
than the interpreter. 

Best of all, BASIC Compiler does it w/ith BASIC, 
the language you already l<now. By compiling 
the same source code that your current BASIC 
interprets, BASIC Compiler adds speed with a 
minimum of effort. 

And you get more BASIC features to program 
with, since features of Microsoft's Version 5.0 
BASIC Interpreter are included in the pacl<age. 
Features lil<e the WHILE . . .WEND statement, long 
variable names, variable length records, and the 
CALL statement make programming easier An 
exclusive BASIC Compiler feature lets you call 
FORTRAN and machine longuage subroutines 
much more easily than in Level li. 

Simply type in and debug your program as 
usual, using the BASIC interpreter Then enter o 
command line telling the computer what to 
compile and what options to use. 

Voila! Highly optimized, Z-80 machine code 
that your computer executes in a flash! Run it now 
or save it for later Your compiled program can be 
saved on disk for direct execution every time. 

Want to market your programs? Compiled ver- 
sions are ideal for distribution.* You distribute only 
the object code, not the source, so your genius 
stays fully protected. ^ypt3..-::.-.r -■- 

BASIC Compiler runs on your 
TRS-80 Model I with 48K and disk 
drive. The package includes 
BASIC Compiler, linking loader 
and BASIC library with complete 
documentation. $195.00. 



MORE 

FROM 

MICROSOFT 



'Microsoft royalty information for 
the sale of programs complied 
with BASIC Compiler is available 
from Microsoft. 
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muMATH Symbolic Math System 

expands your TRS-80 beyond the limits of numeri- 
cal evaluation to a much higher level of math 
sophistication. 

Symbolic mathematics is muMATH's power. For 
the first time, algebra, trigonometry, calculus, 
integration, differentiation and more can be per- 
formed on a system smaller than an IBM 370. And 
in a fraction of the time you could do them 
manually 

Yet for all its power, muMATH is simple to use. 
To perform a differentiation you could enter: 
?DIF[A-XT3 + SIN(XT 2],X}; 

in almost no time, the computer would reply 
with: @2"X'COS(XT 2] -I- S'A'X T 2. 

Or to add fractions: ?1/3 + 5/6 -f- 2/5 4- 3/7; 
The instantaneous answer: 419/210. 
Or to perform a more difficult trigonometric 
expansion you enter: SIN(2"Y)"(4'COS[X]t3-COS 
(3*X] -I- SIN [Y]'(COS(X-l-Y-l-#PI] - COS(X-Y)]; 

Just a few seconds later, the computer replies: 
(Q)4'SlN(Y)-COS(X)*COS(Y). 

muMATH has virtually infinite precision with full 
accuracy up to 611 digits. 

if you use math, you'll find countless ways to save 
time and effort with muMATH. It's a professional 
tool for engineers and scientists. A learning tool 
for students at any level from algebra to calculus. 
And if you want to expand your capabilities 
even beyond the standard muMATH, the option is 
open. muSIMP, the programming language in 
which muMATH is written, is included in the muMATH 
^ — -.^^^^^ package. A superset of the lan- 
guage LISP, muSlMP is designed 
especially for Interactive symbolic 
mathematics and other artificial 
intelligence applications. 

muMATH and muSIMP were 

written by The Soft Warehouse, 

Honolulu, Hawaii. Priced at $74.95, 

the package includes muMATH, 

muSlMP and a complete manual. 

it requires a Model I TRS-80 with 

32K and single disk. muMATH 

for the Apple II Computer will 

be available later this year 



FROM 






CONSUMERS PRODUCTS 
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6 South St , Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1 ■800-258-1 790 
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HAVE WE 

GOTAPIOGUm 

FORYHIII'SI 

Attend the biggest public computer shows in the country. 
Each show has 100,000 square feet of display space fea- 
turing over 50 Million Dollars worth of software and hard- 
ware for business, industry government, education, home 
and personal use. 
You'll see computers costing $150 to $250,000 including 
mini and micro computers, software, graphics, data and word 
processing equipment, telecommunications, office machines, 
electronic typewriters, peripheral equipment, supplies and com- 
puter services. 

All the major names are there including; IBM, Wang, DEC, 
Xerox, Burroughs, Data General, Qantel, Nixdorf, NEC, Radio 
- , Shacl<, Heathkit, Apple, RCA, Vector Graphic, and Commo- 
■. dore Pet. Plus, computerized video games, robots, com- 

puter art, electronic gadgetry, and computer music to 
entertain, enthrall and educate kids, spouses and peo- 
ple who don't know a program from a memory disk. 
Don't miss the Coming Of The New Computers- 
Show Up For The Show that mixes business with 
pleasure. Admission is $5 for adults and $2 for chil- 
dren under 12 when accompanied by an adult. 



Ticket Information 

Send $5 per person with the name of the show 
you will attend to National Computer Shows, 
824 Boylston Street, Chestnut Hill, Mass. 02167. 
Tel. 617 739 2000. Tickets can also be purchased 
at the show. 



DALLAS 
Dallas Market Hall 

2200 STEMMONS FRWY 

AT INDUSTRIAL BLVD 

THURS-SUN 

APRIL 9-12 

10 AM TO 7 PM 



CHICAGO 
McCormick Place 

SCHOESSLINGHALL 
23RD& THE LAKE 

THURS-SUN 

SEPTEMBER 10-13 

10 AM TO 7 PM 



WASHINGTON, DC 
DC Armory/Starplex 

2001 E. CAPITOL ST SE 

(E CAP ST EXIT OFF 1295 

-KENILWORTHFRWY) 

ACROSS FROM RFK STADIUM 

TMURS-SUN 

SEPTEMBER 24-27 

10 AM TO 7 PM 



BOSTON 
Hynes Auditorium 

PRUDENTIAL CENTER 

THURS-SUN 

OCTOBER 15-18 

10 AM TO 7 PM 



ATLANTA 
Atlanta Civic Center 

395 PIEDMONTAVE NEAT 

RALPH McGILL BLVD 

THURS-SUN 

OCTOBER 29-NOVEMBER 1 

10 AM TO 7 PM 
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I DON'T 

THINK WE'RE IN KANSAS ANYMORE 




by Mark Pelczarski 



The first time I encountered the 
real inner workings of a computer 
was in a programming course. We 
learned Fortran on an IBM 1130, 
punching our programs on cards, 
one line each, then putting them in 
a submissions bin where they'd 
eventually be whisked away into 
another room. A few hours later 
our output would arrive, stacks of 
computer printouts that would tell 
us what happened. Most of the 
time something went wrong, as 
expected among beginners, and 
some cryptic, handwritten scrawl 
from the heralded computer 
operator would appear at the top. 
There was a chart that we could 
look at to see what it meant, and 
more often than not the scrawl 
said "FOO-9". This allegedly is 
what the computer spit back out 
from our program, and it meant 
something like "1 just don't 
understand". Poo on it. 

This computer was a magnificent 
piece of machinery; so magnificent 
that it even had its own air- 
conditioned room. I remember 
going in there occasionally and 
standing in awe of all those huge 
cabinets and the wires running all 
over the floor. There was a cabinet 
for the card reader, one for the 
printer, one for the memory, one 
for the disk drives, and a control 
console with flashing lights, a 
keyboard, and lots of switches. It 
had all of 16K bytes of storage. 
This was not in the dark ages; this 
was in 1970. 

I learned later that FOO-9 was 
actually F009; the O's were actually 
zeroes. The flashing lights on the 
control console actually showed 
the contents of a word (two bytes) 
of storage, and when a program 
bombed, this storage location 
would show a certain value relating 
to the type of error that occurred. 
In the case of the dreaded F009, it 
actually displayed: 
1111000000001001 (in a fit of 
binary convenience, I've used Is 
for lights that were on, Os for 
lights that were off). Somehow 
F009 was an abbreviation for that 
pattern of ONs and OFFs. That 
was my first brush with 
hexadecimal. 




ON AND OFF 

All those little ONs and OFFs, 
all that a computer can really 
store, are organized into little 
bunches. For convenience, instead 
of trying to write ON, OFF, OFF, 
ON, OFF, etc., people started 
abbreviating, using 1 for ON and 
for OFF. Now they could write 
10010, etc. This excited 
mathematicians quite a bit, since 
they'd always been trying to come 
up with uses for numbering 
systems other than base 10, which 
they say we have because of the 
number of protuberances on our 
hands. Surely many of you 
remember in 7th or 8th grade when 
they taught you the marvels of 
base 7, base 4, and other 
wonderful bases, and remember 
wondering why in the world they 
are doing that and who anywhere 
would care what 4 + 5 was in base 
6? (It's 13.) The best explanation I 
ever heard was ^he one about "If 
someone ever came up to you in a 
dark alley with a gun and told you 
to tell him the answer to 4 base 
7 + 6 base 7 or he'd shoot you, it 
would be good to know." I've 
tried that one on students too, and 
it didn't work with them either. 

BITS AND BYTES 

Well, now Is and Os come along, 
and mathematicians get all excited 
since those are the digits used in 
base 2, binary. You know, base 10 
uses 0-9, binary uses 0-1. They get 
all excited and call these things 
bits, for Binary diglTS. Clever. 
Then they figure that it would be 
nicer to have larger units, like base 
10 has hundreds, thousands. 



millions, and things like that, so 
they say that eight bits in strung 
together will be called a byte. 
Notice the unique spelling. 
Someone wanted to be cute, I 
guess. Depending on what 
computer you were talking about, 
there were also bigger units called 
words, which were two or four or 
some number of bytes. It varied 
from one machine to another. The 
IBM 1130 mentioned earher 
was actually referred to as having 
8K of storage, but those were two 
byte words. "K" is interesting, 
too. In usual talk, it means a 
thousand, but with computers it's 
actually 1,024. Strange number? 
Not really. It's actually 2 to the 
10th power. Base 2, remember? 



POWERS OF 2 

Powers of 2 appear often when 
using computers. Failing that, 
powers of 2 minus 1 . 32767? 2 to 
the 15th minus 1. 255? 2 to the 8th 
minus 1. 127? 2 to the 7th minus 
1. It's just like powers of 10 in 
base 10. If you have room for 4 
digits, the largest number you can 
use in 9999. 10 to the 4th minus 1. 
And on and on... 

But people got tired of writing 
10011101011001, etc. It's 
monotonous and boring. The 
number 9 in base 2 become 1001, 
for example, a bit more 
cumbtisome in the writing. So 
they started looking for 
abbreviations. They first tried 
octal, which is base 8. To really 
understand it, though, you first 
have to know a little about binary. 
Any base is sort of like base 10. 
The place farthest right in base 10 
represents the number of Is. The 
second place is the number of 10s, 
which is 10 to the 1st power. The 
third place is the number of 100s, 
or 10 to the 2nd, followed by 
1000s (10 to the 3rd), and so on. 
In base 2, the digit .''arthest right is 
still the number of Is, but the 2nd 
digit is the number of 2s, which is 
2 to the 1st. The third digit is 4s, 
or 2 to the 2nd. The fourth is 8s, 
or 2 to the 3rd, and so on. A 
definite pattern, and that's how it 
works. Figure 1 on the next page 
may help if the explanation wasn't 
clear enough. 
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Base 10 - Decimal 



1,2.3.4 



How many thousands 
(103) 



The number of hundreds 

(102) 




The number of ones. 



The number of tens. 

(102) 



Base 2 - Binary 



10 110 



Base 16 - Hexadecimal 



The number of sixteens 
(2^) 

How many eights 

(23) 



How many 4096 s 

(163) 

How many 256 s 

(162) 




28 19 




How many ones. 

The number of twos 
(21) 

The number of fours 
(22) 



The number of ones 

The number of sixteens 
(16>) 



Figure 1 



Well, since with three bits you 
can store the numbers through 7 
(000, 001, 010, Oil, 100, 101, 110, 
111), using sets of three bits you 
can refer to octal numbers. Octal, 
base 8, happens to use the digits 
0-7, so a binary number like: 

101 110 010 011 111 can be 
written an octal as: 5 6 2 3 7. 

You match the sets of three 
binary digits with their actual 
values to get octal. Octal became a 
convenient shorthand for binary. 

"But, alas," someone 
proclaimed, "it is not really 
convenient because you cannot 
break a byte into groups of three! 
It has eight bits, so you must 
break it into groups of four!" 
Well, with four bits you can 
represent the numbers to 15 in 
binary. (15 is 1111 in binary. Try 
it.) "We can use base 16 for our 
abbreviations, " they said. This is 
all fine, but you know and 1 know 
that writing numbers like: 
1 14 5 12 

is going to get confusing. You get 
114512, and suddenly you don't 
know whether it was: 
114 5 12, or 
1 14 5 1 2, 

or what. So they improvised. They 
said "We'll count 1, 2, 3, 4, 5, 6, 



Base 10 


Base 2 


Bases 


Base 16 


Decimal 


Binary 


Octal 


Hex- 
adecimal 


1 


1 


1 


1 


2 


10 


2 


2 


3 


11 


3 


3 


4 


100 


4 


4 


5 


101 


5 


5 


6 


no 


6 


6 


7 


111 


7 


7 


8 


1000 


10 


8 


9 


1001 


11 


9 


10 


1010 


12 


A 


11 


1011 


13 


B 


12 


1100 


14 


C 


13 


1101 


15 


D 


14 


1110 


16 


E 


15 


nil 


17 


F 


16 


10000 


20 


10 


17 


10001 


21 


11 


18 


10010 


22 


12 


19 


10011 


23 


13 


20 


10100 


24 


14 


21 


10101 


25 


15 


22 


10110 


26 


16 


23 


10111 


27 


17 


24 


11000 


30 


18 


25 


11001 


31 


19 


26 


11010 


32 


lA 




Figure 2 





With it you can abbreviate all 
kinds of binary numbers. 
0101 1001 1010 0111 
becomes 5 9 A 7. 



1011 1110 
becomes B 

1111 0000 
becomes F 



1110 
E E 

0000 

o o 



nil 

F. 

1101 
D. 



7, 8, 9, A, B, C, D, E, F, 10, 11, 
and so on." Okay. So that's where 
hexadecimal comes in: base 16. 
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NYBBLE NYBBLE 

I'm getting rather hungry now. 
It's almost dinner time actually, so 
I think I'll leave off here. One 
interesting footnote is that at some 
point someone felt the need to 
name the unit of memory that can 
be stored by one hexadecimal digit: 
4 bits, or a half byte. In ultimate 
cuteness, they named it a nybble. 
(Yes, the magazine by that name is 
spelled wrong, at least for what I 
believe is their intention.) I think 
nybble's a fairly new term; I 
couldn't find anything about who 
coined the term, although I did 
try. It wasn't even listed in my 
Penguin Dictionary of Computers 
(Penguin Books, 1970) (No joke, 
Dave). The Gold Star Award goes 
to anyone with clues as to its 
originator. 

Dinner's awaitin'. 



® 
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TIME LORD 

The elders of Waldrom have supphed you with the 
hyperspace-worthv vessel Tardus, and commissioned you to 
eliminate the fallen Time Lord. Your resources include clones 
who will fight for you, the formidable CRASER weapons of 
the Tardus, and magic weapons such as Fusion Grenades and 
Boreli'pn Matrix Crystals. 
Apple 48K Disk lnteger#47-191001D $29.95 



The Programmers Guild 



DRAGONQUEST! 



In a desperate race against the sun you search for 
Smaegor, Monarch of Dragonfolk, who has kidnapped the 
Princess of the Realm. In a quest for honor and glory, you 
must search the land, seeking out the tools needed for the 
ultimiate confrontation. 

S-80 Tape #26-221 00 IT $15.95 

S-80 Disk #26-22100ID $21 .95 




JOHN WILEY & SONS, Inc. 



MORE TRS-80 BASIC 

This new interactive guide to programming in S-80 Level II 
BASIC teaches scores of practical applications — both 
recreational and educational You'll get a clear demonstra- 
tion of different methods to display graphics: file-handling 
techniques applied to both cassette and disk files plus : 
animation, games, and fun. 
#65-2330026 $9.95 



DATA FILE PROGRAMMING IN BASIC 

With your own microcomputer, minimal knowledge of 
BASIC, and this easy-to-use guide, you can learn how to use 
data files to keep track of billings, customer inventory, and 
expenses, maintain mailing lists, process numerical and 
statistical information, and much more. Sample programs 
and lots of practical advice assist you every step of the way. 
#65-233001 B $9.95 



Br^derbund SoFtuuare 


GALAXY WARS 



Full-color graphics. Machine Language sound effects and 
action make this an eerie challenge for you pilots anxious to 
maneuver your rocket through enemy fire and space fish to 
destroy enemy saucers. 
Apple II 32K Disk Integer or Applesoft #47-230007D. . . $24.95 



TAWALA'S LAST REDOUBI 

The cruel Emperor Tawala has been forced from his throne 
on the world of Calactia and has fled for his life to the planet 
of Farside, where he and a small band of adherents prepare to 
make their last stand. You are the rebel leader who must 
lead the assault against the Emperor's stronghold. 

S-8016K Tape Level II #26-230005T $19 95 

S-80 32K Disk #26-230OO5D $24.95 

Apple 48K Disk Applesoft #47-230005D $29 95 




INTRODUCTION TO 8080/8085 
ASSEMBLY LANGUAGE 
PROGRAMMING 

Use your microcomputer to write fast, sophisticated, com- 
plex programs with the help of this guide. You'll learn what 
Machine Langauge is, how to perform routine operations, in- 
put/output, conditional commands, machine language logic 
stack routines, and more. Sample programs illustrate every 
technique and concept. 
#65-233003B $8.95 



8080/Z80 ASSEMBLY LANGUAGE 



V 



Learn assembly language swiftly and easily by developing 
a powerful system monitor in a step-by-step approach. Ten ap- 
pendices contain all the necessary material to write 8080 or 
Z80 Assembly Language programs. 
#65-2330046 $9.95 



SoftSide, April 1981 



/^Adventure 

\X5^ INTERNATIONAL 



TANK COMMAND 



Two armies of tanks fight repeated battles until one army 
scores enough points to win the war. Players choose which 
tank to fire and the target is randomly selected from within 
the tank's range. 
Apple 1 1 Tape #47-200033T $9.95 



DATA CAPTURE 



Anything that appears on the screen can be captured, sav- 
ed, printed, or edited. You can use "Data Capture" to com- 
pose text off-line for later transmission to another computer. 
Designed to be used with the Micromodem II 
Apple II Disk Applesoft #47-200073D $29.95 



ADVENTURE HINT BOOK 

Having problems with one of Scott Adams' Adventures? 
Can't figure out how to get out of the bog or where the 
pharaoh's heart is? These and other clues are given in a 
special format designed to help you as little as possible but 
still let you solve the Adventure yourself. 
#65-2000828 $7 95 



CAPTURE/SIMOr 

Block your opponent's moving wall, but don't hit anything. 
You'll need fast reflexes to win this fast-moving Arcade 
game which features graphics and sound effects Also in- 
cludes the memory game "Simon" 
S-80 Mod. 1 & 3 16K Tape Machine Language 

#26-200054T $12 95 

S-80 Mod. I 32K Disk Machine Language 

#26-200054D $17 95 

ilMUTEK n 



'TWAS THE NIGHT BEFORE 
CHRISTMAS AND MATCH MAKER 

A terrific Kid Venture version of the popular Yuletime 
poem with James Talley's special sounds and graphics. 
Perfect for your 4-10 year old. Also included is a memory 
game called "Match Maker". This game uses graphics and 
sound effects and is perfect for even non-readers. 
S-80 Mod. 1 Tape#26-20083T $14.95 



SIX MICRO STORIES 

This program offers an introduction to Interactive Fiction 
where the computer sets the scene with a fictional situation 
and you become a character in the story. You are an 
American spy in Hitler's Third Reich, the pilot of a doomed 
747 and more. Now available for the Apple II. 
Apple II Disk Applesoft #47-200021 D $14.95 



E-z sound; 

A sound routine for enhancing operation lof BASIC pro- 
grams. Easily patched into your program and executed upon 
command. No prior musical training is necessary and a short 
tutorial on music terminology is included. You may sell your 
own programs with "E-Z Sounds" routines, provided a credit 
line is given to "E-Z Sounds." 
S-80 Mod. I 16K Tape Machine Language 

#26-200095T $24.95 



Simutek II Package One includes the following programs: 

Craphictrek 2000 — Navigate the Enterprise to dock with 
the giant space stations as well as avoid Klingon torpedoes. 

Invasion Worg — As' general i of I Earth's .forces in 3099 
your job is to stop the Worg invasion and destroy their out- 
posts. 

Star Wars — Maneuver your space fighter deep into the 
nucleus of the Death Star, drop your bomb, then escape via 
the only exit. 

Space Target — Shoot at enemy ships with your missiles. 

Saucers — Can you be the commander to win the 
distinguished cross within the time limit? 
S-80 16K Tape BASIC#26-200024T $14.95 



POKER TOURNAMENT 

This program allows one person to play five card draw 
poker with five computer controlled opponents. The com- 
puter has bluff and anti-bluff functions and uses an attractive 
combination of graphics and alphanumerics. 

S-80 Mod. 1 16KTape#26-200093T $12 95 

Apple II16K Tape Applesoft #47-200093T $14 95 

Apple II 16K Disk Applesoft #47-200093D $20 95 



ANGLE WORMS/CROLON DIVERSION 

Players attempt to prevent growing worms from hitting an 
obstacle. Each worm may fire a projectile from its head to try 
to shorten its own length For one or two players 
Also included is "Crolon Diversion", a space target game 
Atari 8K Tape #'36-20O092T $9.95 



THE GREAT RACE 

Try to finish the 600-mile race before your opponents, or 
before they stop you with wrecks or flat tires. Race against 
the computer or one to three players. 
S-80 16K Tape BASIC #26-200035T $9.95 




PLANETOIDS 

A real-time Hi-Res graphics game with super sound effects. 
Features three different skill levels — Novice, Average, and 
Expert where the asteroids are attracted to your ship. 
Apple II or II + . 32K Tape Machine Language 

#47-20001 5T $14.95 

Apple II or II -I- , 32K Disk Machine i Language 

#47-20001 5D $19 95 
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LUNAR LANDER; 



STAR TREK 3.5 



Features a real-time lunar lander which you attempt to 
manuever to safe landing sights. Great sound effects. 
S-80 Mod. 1 & 3 16K Tape Machine Language 

#26-2000947 $14.95 

S-80 32K Disk Machine Language 

#26-2000940 $20.95 



This improved Star Trek version includes action, sound ef- 
fects, 10% faster execution, up to 30% faster execution for 
long or short-range sensor scans, smoother command flow, 
multiple moves when using Impulse engines during non- 
combat situations, and improved Klingon battle logic for a 
great challenge. 
Atari 32K Tape #36-200025T $14.95 



I.ITTLE RED RIDING HOOD 

In this Kid Venture, your child may interact in the story of 
Little Red Riding Hood. Cardboard cutouts mask all keys ex- 
cept the second row and the space bar to allow use by both 
readers and nonreaders. Includes musical sound effects and a 
play-along cassette tape. 

S-80 Mod. 1 16K Tape BASIC #26-200030T $14.95 

Apple l\ 16K Tape BASIC #47-200030T $19.95 



DEFLECTION/SIMON SAYSi 

Deflection is a fast-moving Arcade game with simple rules 
and many skill levels. Also included is the memory game 
"Simon Says". 
Atari Tape #36-200078T $9.95 



FROG 



fySJc 



CHIMPS 



The old game of "I Doubt It" or "Liar," only you play with 
four chimps who love to cheat. Excellent animated graphics 
with sound. 
S-80 16K Tape BASIC #26-200037T $9.95 



ESTRIP DICE and CONCENTRATION 



M 



These sexually-oriented games are guaranteed to make for 
some very interesting parties. Humorous sound effects and 
graphics. NOTE: EXPLICIT SEXUAL LANGUAGE MAY BE OF- 
FENSIVE TO SOME USERS. 

S-80 16K Tape BASIC#26-200097T $14.95 

S-80 32K Disk BASIC #26-200097D $20.95 



plLVER FLASH PINBALL| 

This extremely realistic pinball simulation has four flip- 
pers, shake control, and even a tilt mechanism. Features 
bumpers, blockades, graphics, and sound effects. 
S-80 Mod. I 16K Tape Machine Language 

#26-200086T $14 95 

S-80 Mod. 1 32K Disk Machine Language 

#26-2000860 $19.95 



MUSICAL YAT-C. 

A self-scoring musical strategy game for one or more 
players which also has a certain degree of luck involved. 
S-8016K Tape BASIC #26-200090T $12.95 



pWL TREE 

In this game you find a tree with nine playing positions. 
Eight are filled by owls and one by a bat. The object of the 
game is to attract owls to all nine positions by shooting the 
bats in the fewest number of plays. Each time you shoot a bat 
you will also scare o'ff its neighbors which will be replaced by 
the opposite creature. 
S-8016K Tape BASIC #26-200034T $9.95 



Pick your own powder and your angle as you plug away 
over the mountain. Great sound and superb colors. Has 
special limited powder version for greater challenge. 
Atari 16K Tape #36-200079T $9.95 



You are a hungry frog on a log in a pond. You're trying to 
catch your dinner on the fly. Great for ages 5 and up. 
S-80 16K Tape #26-200055T $9.95 



G 



Acorn 



BASKETBAtl 

One-on-one basketball against a friend or the computer. 
Steal the ball, duck around your opponent, and slant towards 
the basket for a lay up. The graphics are based on a three- 
dimensional depiction of a basketball court and dribbling 
sounds add to the realism. 

S-80 Tape #26-23401 OT $14.95 

S-80 Disk #26-2340100 $20.95 



SUFTWARE, 

ETC 

DOUBLE ZAP II FOR NEWDOS/80 

"Double ZAP H" is a major enhancement from Double 
ZAP I. It carries all of the features of D-Z I, as well as 
Automatic Density Recognition. Using this feature allows any 
density diskette to be used on any drive. 
S-80 32K Disk 1-4 Disk Drives #15-2750030 $49.95 



DOUBLE ZAP II FOR NEWDOS AND 
NEWDOS + 

This Double Zap modifies the original NEWDOS (version 
2.1) for operation with the Percom "Doubler". It also adds a 
mechanism to the DOS for managing different-sized drives in 
the system and adds some useful utilities as well. Contains 
Automatic Density Recognition. 
S-80 32K Disk1-4 Disk Drives #15-2750020 $39.95 
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ABOUT THIS ISSUE 




Egg, egg, who's got the egg? 
Some weird guy with long ears 
showed up the other day and 
stashed an Easter egg on our 
cover. Can you find it? If so, write 
to the munchkins (that's us) and 
tell us where it is. We'll duly take 
note and mention you next time . 

Well, let's see what hes between 
the covers this month. On the 
cover is the bridge that ate 
Schenectady, but has since retired 
to a harmless existence in northern 
Massachusetts. No teeth left, but 
the gums still show in spots. The 
program that goes with the photo 
is "IBC", written by the since- 
departed Missouri wonder, Phil 
Case. He flew south to work for 
Indenture Extranational, or 
somesuch. 

And for those of you who aren't 
tired of sinking ships yet, there's 
the Apple version of the classic 
game of "Battleship", courtesy of 
our latest RAMwizard, Jon 
Voskuil. He's added a twist to it, 
now not only can you and a friend 
play, but four more friends (or the 
computer itself) can join in for a 
true free-for-all on the high seas. 
Avast ye lubbers! (A vast 
what?!!?? We don't even know 
what a small ye lubber looks hke). 
And then there's a chance to get 
sunk instead of doing the sinking 
for you Atari folk: "Convoy" in 
yet another incarnation from those 
overachievers in Canada, Morris & 
Cope. 

And as long as we're taking care 
of translations and such, we've 
included an Atari version of a 
game we published last month for 
the S-80 and Apple: "Strategy 
Strike". A tip of the stocking cap 
to Rich Bouchard, for another 
hard-fought battle with the 
translation poltergeists that seem 
to plague him. 

Equations for all Occasions 
Dept: That overworked Voskuil 
fellow maintains the pinnacle of a 
mathlete's aspirations with yet 
another installment of "Math 
Decathlon". Once you've used this 
gem to learn to recognize numbers, 
then you'll be ready for Peter 
Kirsch's venture into the boneyard: 
"Dominoes". It's a three-in-one 
package of the game that lent its 
metaphor to those that fear the 



Red Menace, no relation to 
Dennis. Cousin Fred got so excited 
when he saw all those tiles up on 
the screen that he tried to see if he 
could tip one over and get the rest 
to fall... since then cousin Fred has 
been trying to glue back the pieces 
of the munchkin monitor, with 
little success. Our fearless 
publisher has vowed to keep him 
on bread and water until he 
succeeds. 

After Fred finishes with the 
monitor we're going to let him 
build robots. Wanna try? It's easy, 
just key in the program "Robot 
Builder" and away you go. Your 
S-80 will try to build one faster 
than you can, which doesn't seem 
fair to us... the computer already 
knows more about robots than we 
do. 

What's black and white, Hi-Res 
and odiferous all over? If you 
thought the answer was a 
newspaper printed on scented 
paper, you're wrong. It's 
"Skunk", a program by John 
Daoust, the fellow that brought 
you the upside down Apple 
"Darts" game a while back. This 
time he has given us a game that is 
an exercise in careful judgement 
and pushing your luck. We 
munchkins do well in this game as 
we always push our luck, right 
boss? 

Plus, we've got the Penguin 
fellow continuing his exploration 
of what makes a computer tick. 
This time he examines all the 
different ways you can count. 
Elizabeth Barrett Browning tried 
that before, but she got hung up at 
47. Mark's done better, he doesn't 
count that far, but boy does he do 
it in a lot of ways, at least until 
dinner reared its head. 

That Yoho fellow takes a look 
at a couple of the newest kids on 
the Adventure block, and likes 
what he finds. No surprise. There 
are also articles inside about 
chaining in Applesoft (without 
getting sticky) and modifying 
string variables. Ms. Truckenbrod 
moves on to perspective in 
computer graphics and Ed Ting 
tells you what to do AFTER your 
program loads, with apologies to 
Sherry Taylor. Enjoy! 'Til next 
month, a merry munchkin ^ 
farewell. T^r 
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by 

Chris Freund 
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For the thousands who 
have enjoyed X-Wing Fighter, 
X-Wing II presents a totally 
new element in the game! 

You are the pilot of an 
X-Wing fighter .... Your 
Mission, Destroy the Death 
Star! 



i 



Where X-Wing I left Death 
Star looming on the screen, 
X-Wing II lets you guide your 
fighter into the trench, find 
the exhaust port, aim and 
fire — ail the while avoiding 
enemy fighters. Excellent 
graphics, 12 levels of play, 
and extensive INKEY$ 
commands make this one of 
our most exciting "real time" 
games. 

S-80 16K Cassette .... $9.95 
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MESSIAH 




by William Morris and John Cope 

"Messiah" is an ATARI program 
requiring 16K of memory. 

In keeping with the time of year, 
here's a famihar piece of music, 
courtesy of George Frederick 
Handel, adapted for your Atari by 
our neighbors to the north, 
William Morris and John Cope. 
We find the combination of sound 
and graphics to be clever and most 
appropriate. As mid- April 
approaches load this into your 
computer and let it add to the 
atmosphere of the occasion. 

VARIABLES 

J, K, L, M: Variables used to set 

the sound for each of the four 

voices and vertical position of note 

display. 

Z: Horizontal plot position of the 

notes. 

DOCUMENTATION 

Lines 10-30: Title display. 




Line 100: Set the color registers. 
Line 110: Set the trap routine to 
end the chorus. 
Line 120: Color the sky. 
Line 130: Color the field. 
Line 140: Draw the sun. 
Line 150: Draw the hill. 
Line 160-170: Draw the three 
crosses. 

Line 200: Read data statements 
and set the tone for each of the 
four voices. 



Line 210: Sets the horizontal 
screen position for each of four 
notes to be plotted. If Z is located 
at the extreme right boundary of 
the screen it is set back to the left 
and the luminescence of the sky is 
increased by 1 . 

Lines 211-214: Sets the vertical 
position for rests (note value of 0). 
Line 220: Plots each of the four 
notes on the screen as well as an 
adjacent note to make the display 
more prominent. Dividing each 
note by 10 and adding 26 restricts 
the display to the lower portion of 
the screen. 

Lines 230-240: Short delay loop. 
Line 800: Sound routine. 
Line 900: Trap routine. End of 
data error sends program here. All 
of the sound registers are turned 
off before starting again. 
Lines 1000-1630: Data statements. 
Lines 30200-30220: Routine to 
display mixed graphics mode of 
the title. 



10 GOSIB 30200:P[)KE 87,2JP0SITI0N 5,1: 


2H IF M=0 THEN M=lfl 


1070 DATA 53,85,72,217,53,85,72,217,0, 


? «{ "hallelujah" 


220 mm 3:plot z,int(j/io+26):fiot z 


0,0,0,0,0,0,0 


20 POKE 87,i:POSniON 1,7:? *6\"{hsn6e 


+1 ,INT( J/10+26) :plot z,int(k/io+26) :pl 


1080 DATA 47,72,57,144,47,72,57,144,47 


1'5 Messi3h)"JPffl<E 752,1 


OT Z+1,INT(K/10+26) 


,72,57,144,72,72,47,114 


30 POKE 87,0JPCBITION 5,H:? "(c) Mh. 


225 PLOT Z,INT(L/10+26);PLOT Z+1,INT(L 


1090 DATA 42,72,53,108,47,72,57,144,0, 


Morris S J. Cope 1981" :F0R Z=1 TO 300 


/10+26):PLOT Z,INT(M/10+26);PLOT Z+1,I 


0,0,0,0,0,0,0 


OifOT Z 


NT(M/10+26) 


1100 DATA 47,72,57,144,47,72,57,144,47 


100 GRAPHICS 2i;SETC0L0R 0,7,0:SETCOLO 


230 FOR T=l TO 25:^EXT T 


,72,57,144,72,72,47,114 


R 1,12,0:SETCOLCK 2,15,10:SETCa.OR 1,0 


240 COLOR 2;PL0T Z,INT(J/10+26):PLOT Z 


1110 DATA 42,72,53,108,47,72,57,144,0, 


,0 


+1,INT(J/10+26):PLOT Z,INT(K/10+26):PL 


0,0,0,47,72,47,114 


110 TRAP 900 


OT Z+1,M(K/10+26) 


1120 DATA 42,72,53,108,47,72,57,144,0, 


120 C(L(R liPLOT 79,20:DRAWTO 79,0JDRA 


245 PLOT Z,INT(L/10+26):PLOT Z+1,INT(L 


0,0,0,47,72,47,114 


HTG O.OJPOSniON 0,2fl:POKE 765,i:XI0 1 


/10+26):PLOT Z,INT(K/10+26):F10T Z+1,I 


1130 DATA 42,72,53,108,47,72,57,144,0, 


8,*6,0,fl,"SJ" 


NT(H/lfl+Z6):G0T0 200 


0,0,0,47,72,47,114 


130 COLOR 2!PL0T 79,17;0R^T0 79,21:DR 


800 READ J,K,L,M:SaM) 0,J,10,4:sa)ND 


1140 DATA 42,72,53,108,47,72,47,114,53 


AWTO 0,2i:POSniON 0,17;POK'E 765,2;XI0 


l,K,10,4:3OlM) 2,L,10,4:SO(M) 3,M,10,4 


,72,42,128,53,76,64,128 


18,*5,0,0,"S:" 


:Fa? z=i TO ioo;(OT z:goto ooo 


1150 DATA 57,72,47,144,57,72,47,144,0, 


140 COLOR 3JF0R Z=0 TO 8JREAD XiPLOT X 


900 SETCOLOR 4,0,15:FOR Z=0 TO 3imM) 


0,0,0,0,0,0,0 


,z:DRwn"o 79,z:next z 


z,o,o,o:next z:for z=i to 2ooo:icxt z 


1160 DATA 72,72,72,144,72,72,72,144,72 


150 CK.OR 2JPL0T 10,2fl:DRA«TO 30,20:PL 


:riw 


,72,72,144,72,72,72,144 


OT 13,19!DRAWT0 27,19 


999 DATA 71,71,72,72,73,73,74,76,78 


1170 DATA 64,128,64,128,64,128,64,128, 


160 COLOR ttPLOT 14,15:DRAHT0 h,18:pl 


1000 DATA 53,72,42,217,53,72,42,217,53 


57,114,57,114,57,114,57,114 


OT 13,16!DRAHT0 15,16}PL0T 25,15:DRAWT 


,72,42,217,72,72,53,173 


1180 DATA 53,108,53,108,108,108,108,21 


25,18:PL0T 21,1A:DRA«T0 26,14 


1010 DATA 64,81,53,162,72,85,53,217,0, 


7,53,108,53,108,53,108,53,108 


170 PLOT 17,14:DRmO 22,14:PL0T 17,15 


0,0,0,0,0,0,0 


1190 DATA 53,108,53,108,53,108,53,108, 


:DRAHT0 22,15:PLQT 19,12!DRAWT0 19,18: 


1020 DATA 53,72,42,217,53,72,42,217,53 


57,114,57,114,57,114,57,114 


PLOT 20,12:DRWrO 20,18:Z=0 


,72,42,217,72,72,53,173 


1200 DATA 64,128,64,128,64,128,64,128, 


180 m 


1030 DATA 64,81,53,162,72,85,53,217,0, 


64,128,64,128,64,128,64,128 


20D READ J,K,L,M:S01M) 0,J,10,4:SOUND 


0,0,0,53,72,53,173 


1210 DATA 72,144,72,144,72,144,72,m, 


1,K,10,4:SOUND 2,L,10,4:SOIM) 3,M,10,4 


1040 DATA 53,64,40,162,53,72,42,217,0, 


0,0,0,0,47,72,72,114 


210 Z=Z+2:F Z>78 IVm Z=2:W=«+2:SETC0 


0,0,0,53,72,53,173 


1220 DATA 53,72,42,108,57,72,47,144,0, 


LOR 0,7,H 


1050 DATA 53,64,40,162,53,72,42,217,0, 


0,0,0,47,72,47,114 


211 IF J=0 TIO J=10 


0,0,0,53,72,53,173 


1230 DATA 53,72,42,108,57,72,47,144,0, 


212 IF K=0 TICN K=10 


1060 DATA 57,81,47,193,53,85,72,217,53 


0,0,0,47,72,47,114 


213 IF L=fl TtO L=10 


,96,72,144,57,96,72,144 


continued on next page 
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continued from previous page 

1210 DATA 12,72,53,108,17,72,57,111.0, 

0,0,0,17,72,17,111 

1250 DATA 12,72,53,108,17,72,57,111,0, 

0,0,0,0,0,0,0 

1240 DATA 0,108,53,217,0,108,53,717,0, 

108,53,217,0,108,53,217 

1270 DATA 0,94,17,193,0,96,17,193,0,85 

,12,173,0,85,12,173 

1280 DATA 0,81,10,162,0,162,81,162,0,8 

1,81,162,0,81,81,162 

1290 DATA 0,81,81,162,0,81,81,162,0,85 

,85,173,0,85,85,173 

1300 DATA 0,96,96,193,0,96,96,193,0,96 

,96,193,0,96,96,193 

1310 DATA 0,108,108,217,0,108,108,217, 

0,0,0,0,53,72,53,173 

1320 DATA 53,61,10,162,53,72,12,217,0, 

0,0,0,53,72,53,173 

1330 DATA 53,61,10,162,53,72,12,217,0, 

0,0,0,53,72,53,173 

1310 DATA 53,61,10,162,53,72,12,217,0, 

0,0,0,53,72,53,173 

1350 DATA 53,61,10,162,53,72,12,217,0, 

0,0,0,0,0,0,0 

1360 DATA 53,0,0,0,53,0,0,0,53,0,0,0,5 

3,0,53,0 

1370 DATA 17,0,57,0,17,0,72,0,12,0,0,0 

,12,0,53,0 

1380 DATA 10,0,61,0,81,0,61,0,10,0,0,0 

,10,0,17,0 



1390 DATA 10,0,57,0,10,0,72,0,53,0,53, 
0,53,72,53,0 

1100 DATA 17,81,53,0,17,96,53,0,17,72, 

57,0,17,72,57,111 

1110 DATA 53,72,53,173,53,72,53,217,0, 

85,35,11,53,108,10,0 

1120 DATA 57,0,72,111,72,96,72,111,0,1 

11,72,111,57,111,72,111 

1130 D^TA 53,0,61,128,53,85,61,128,17, 

96,57,111,17,81,57,111 

1110 DATA 72,85,53,108,72,85,108,217,5 

3,61,53,108,57,72,53,108 

1150 DATA 61,76,53,108,61,96,53,108,0, 

72,57,111,17,72,57,111 

1160 DATA 53,72,61,108,57,72,61,108,53 
,76,61,108,53,76,61,108 

1170 DATA 57,72,72,111,57,72,17,111,17 

,0,57,0,57,96,72,111 

1180 DATA 0,72,0,173,72,85,53,217,53,0 

,53,0,72,85,53,108 

1190 DATA 0,96,0,111,57,111,17,111,17, 

0,57,0,57,0,72,0 

1500 DATA 0,108,53,0,72,108,53,0,12,10 

8,53,0,53,108,53,108 

1510 DATA 0,96,17,111,57,96,17,111,53, 

85,12,0,72,85,12,108 

1520 DATA 0,81,10,128,61,162,81,162,17 

,81,10,0,17,81,10,193 



1530 DATA 0,81,10,111,57,81,10,111,53, 
85,12,0,53,85,12,128 

1510 DATA 53,96,17,162,53,96,17,193,57 

,96,17,111,57,96,17,111 

1550 DATA 53,108,53,173,53,72,53,173,5 

3,85,53,0,53,108,12,108 

1560 DATA 53,0,10,128,53,61,10,162,53, 

61.10,128,53,61,10,111 

1570 DATA 53,72,12,108,53,72,12,108,53 

,72,12,108,53,72,12,108 

1580 DATA 53,81,61,162,53,81,61,162,53 

,81,61,162,53,81,61,162 

1590 DATA 53,81,61,162,53,81,61,162,53 

,01,61,162,53,81,61,162 

1600 DATA 53,85,72,217,53,85,72,217,53 

,85,72,217,53,85,72,217 

1610 DATA 53,85,72,217,53,85,72,217,53 

,85,72,217,53,85,72,217 

1620 DATA 53,85,72,217,53,85,72,217,53 

,85,72,217,53,^,72,217 

1630 DATA 53,85,72,217,53,85,72,217,53 

,85,72,217,53,85,72,217 

30200 GRAPHICS OiSETCCLOR 2,6,i;SETC0L 
OR 1,6,i:UB=PEEK(560)+PEEK(561)x256+i: 
POKE UE!-1,70:POKE 1)B+2,7:P0HE UB+3,7 
30210 FOR UZ=1 TO SIPOKE lB+UZ,6:hEXT 
UZJPOKE UB+22,65:Pff(E UE+23,F'EEK<560)! 
POKE UEi+21,PEEK(561):SETC0LCK 3,8,6 _, 
30220 RETURN ^ 
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COLUMN CALCULATOR is a "word processor for 
numbers," a number processor designed to be used lil<e 
a calculator. But it can handle large blocks of information 
as it tiandling one number at a time. Ttie work space can 
be ttiought of as a large matrix with rows and columns 
much like an accountant's spreadsheet. Data can be easi- 
ly entered into columns; and the columns can then be 
moved around. Columns can be overlaid from an existing 
data file on disk. One column can be added, subtracted, 
multiplied, divided, or raised to a power of another and 
the results put in another column. Columns can be com- 
pared to one another. Columns can be totalled, or set with 
a constant, and any column can be sorted, carrying the 
rest of the columns with it. A predefined function can be 
defined, thereby preprogramming the worksheet. 




The statistical section provides analysis of the data. The 
analysis includes simple statistics, linear regression, sim- 
ple correlation, histogram and the T-test. 

The information can be printed out on the line-printer in 
a compressed format at any stage in the development of a 
data base. Thus, it can be used as a finished report or as 
a copy of the worksheet to permit the filling in of addi- 
tional data for later entry into the data base. The data base 
can be saved on disk and recalled at a later date for 
modification or for generating a report. Any column in a 
file on disk can be referenced and added to the current 
worksheet. 



by David T. Cray 



rQLUiI]f\l 



All user communication with COLUMN CALCULATOR 
uses FLASH, the line input/editor routine. This enables 
the user to not only key in instructions, but to edit errors 
or data as well. 
S-80,.32K disk $39.95 
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INTERNATIONAL 
BRIDGE CONTRACTORS 




by Phillip Case 

"IBC" is an S-80 program which 
requires 16K of memory. 




As you read the company 
newsletter, you can't believe your 
eyes. The chairman of the board is 
on vacation in Bermuda. While 
he's basking in the tropical sun, 
you're freezing in the frozen New 
Hampshire wilderness. 

Your goals are set, but can you 
attain them? From your present 
position of a lowly office manager, 
you have to achieve and advance 
in position until you are Chairman 
of the Board of IBC , Inc. 



International Bridge Contractors 
is a corporation which specializes 
in bridge construction all around 
the world. You must make the 
decisions governing how successful 
IBC, Inc. becomes, from hiring 
workers, to purchasing materials, 
to actually making bids for 
construction contracts. 

Can you handle the requirements 
of running a large international 
corporation? 
Find out in IBC. 



5 ' xxxiinxnxxixxixxMxixxxxixnxuxxixKxxxx 

XX INTERNAlIOfW. BRIDGE CONTRACTORS xx 

XX XX 

XX (C) COF'YRIGHT 1979 xx 
XX BY WILLIAM PHILLIP CASE xx 

6 ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

Line 10-130! Clear string space and initialize graphics. 

10 CLEAR1050;CLS 

20 Ll$=CHR*(191)+CW»(188)+CHR*(180)+ChRt(26)+STRING»(3,21)+STRI 

NG*(3,191)+CHR:$(181)+CHR$(26)+STRINGt(1,24)+STRING$(t,191)+Clfl^( 

189)+CHR$(18fl)+STRIfffi$(2,17A)+CHR»(26)+STRING»(8,21)+STRING*(9,l 

91)+CHR»(189)+CHR$(188)+CHR*(180)+CHR*(176)+CHR*(26) 

30 Ll»=Ll»+STRINGt(13,21)+STRING»(lt,191)+0«$(188)+CHR$(176)+CH 

Rt(26)+STRING$(16,21)+STRING$(16,191)+C»:$(189)+STRING$(2,176) 

to L2$=CHR*(1(50)+STRING«(2,176)+C«$(181)+CHR$(190)+CHR$(191)+ST 

RING$(8,2t)+CHR$(160)+Crt^(188)+STRING»(5,191)+STRING$(10,2t)+CH 

R$(160)+Cm-$(181)+Ctff:$(188)+STRING«(7,191)+STRING«(12,2t)+Q«$(l 

76)+Cff*(190)+STRIt«$(10,191)+STRING»(H,2t)+C««(18t) 

50 L2$=L2»+STRING* (13,191) +STRING» ( 16 , 21 ) +CHR* ( 176 ) +CHR* ( 190 ) +ST 

RING$(lt,191) 

60 B1»=STRING$ ( H , 176 ) +CHRt ( 26 ) +STRING$ ( 9 , 2t ) +CHR* ( 191 ) +Cfffi* ( 32 ) 

+"IBC"+CHR$(32)+STRING$(2,191)+CHRt(26)+STRING$(8,21)+C««(191)+ 

STRING«(5,131)+STRING*(2,191)+CHR*(26)+STRING»(2,2t)+STRING»(2,l 

91)+CHR$(26)+STRING»(2,21)+STRING»(2,191)+CHR'$(H0) 

70 B2$=STRING$(11,176)+CHR'$(26)+STRING$(10,21)+STRING*(2,191)+ST 

RING«(3,32)+CH»(191)+CW.'$(32)+CW<$(160)+CHR*(191)+Ctl^-»(26)+STRI 

NG»(9,2t)+STRING$(2,191)+STRING$(2,32)+CHR$(160)+CW«(191)+CHR»( 

26)+STRING*(6,2t)+STRINGt(2,191)+CHR$(26)+STRING$(3,21) 

80 B2$=B2$+CH?*(139)+CH«(191) 

90 B3$=STRING*(32,176)+C«»(26)+STRING$(32,21)+Crt»(171)+CHR»(12 

9)+CHWi(32)+CH»(171)+CHR*(129)+CHR«(32)+CHR$(171)+CW<t(161)+STR 

ING$(2,176)+STRING$(5,H3)+STRING$(3,131)+STRING»(1,113)+STRING$ 

(2,17A)+CHR*(178)+CHR*(151)+CW?»(32)+CHRt(130) 

100 B3$=B3*+Crt»(151)+CW^(32)+CHRt(130)+CHR»(151)+CH«C26)+STRI 

NG«(32,2t)+CW»(170)+STRING*(2,32)+CHR»(186)+CH<«(110)+CHR«(131) 

+CW«(131)+Ctf»(129)+STRING$(17,32)+STRING»(2,131)+CH»(110)+CHR 

»(181)+Crt»(144)+CH<$(32)+ChK«(H9)+CHR$(26)+STRING»(32,21) 

110 B3$=B3*+Cfft*(170)+CH<$(ltO)+CI«»(131)+CHR*(26)+STRING$(3,2'») 

+CHR$(129)+CH»(27)+STRING*(28,25)+CHR»(131)+CW,t(137)+CtW(181) 

120 W$(l)= f I *^,t f **,r f *»«, f ,*«ttt , ** *M 

130 U%(2)~ ttt***tit***tn***tn**tttt*» 

Lines 170-1905 Display introduction graphics. 

170 PRINTe28O,"INTERNAnONAL":PRINTe318,"BRIDGE"!PRINT0tO9,"CONT 
RACTORS" 



180 PRINTK76,Ll*;;pRINT@635,L2*;!PRINTe579,Bl$;!PRIKTe625,B2$;! 

PRINTe593,B31i! 

190 FORA=lTO10!FOI»=lTO2!FORC=lTO90;NEXTC:PRINTe915,W*(B);:NEXTB 

,A:CLEARt00!U$="$««,***,tt*.**"!LK*="$$«****.**";A$=STRING*(6 

3,12) 

Lines 250-260! Iriitialize player variables. 

250 CLS:iNPUT"EffTER » OF PLAYERS (1-1)"!P!IFP<10RPMTHEN250 

255 F0RZ=1T0P!PRINT"F1AYER #";Z;" ENTER YOUR NAME";:iNPUTNA»(Z)! 

C*(Z)=10000000!P$(Z)="LIGHT"!PC(Z)=75000!F'S(Z)=3000!Pt1(Z)=5000!B 

$(Z)="LIGHT-MED"!BC(Z)=210000!BS(Z)=100:BM(Z)=150!T»(Z)="feDIUH" 

lTC(Z)=300000!TS(Z)=1000:TM(Z)=2000!At(Z)="^EDIUM" 

260 AC(Z)=345000!AS(Z)=1200!AM(Z)=2200!C♦(Z)="^eyY"lCC(Z)=52500 

0!CS(Z)=2500:CM(Z)=35O0IS$(Z)="HEAVY"!SC(Z)=998O0O5SS(Z)=3O0O!Si1 

(Z)=6000:R»(Z)="OFFICE MANAGER"!fOT 

Lines 270-2901 Major cocwand loop which calls other routiries 
for different phases of gawe. 

270 F0RZ=1T0P 

273 IFNA$(Z)="X"THEN290 

275 TI(Z)=n(Z)+l 

280 GOSUe300:GOSU6100!GOSUB500!GOSUB3000!GOSUB1000!GOSUB50005GOS 

U65500!GOSUB6000 

290 NE)aZ!GOTO270 

Lines 300-350! This routine is the 'COMPANY STATIS DISPLAY'. 

300 CLS!PRINT"NAM£! "!NA$(Z);TAB(30);"POSITION! ";R*(Z)!PRINTA 

SiPRINT'tOWANY STATUS DISPLAY";TAB(50);"TURN! ";n(Z)!F'RINTA$! 

F0RX=9T056!SET(X,17)!SET(X,22)!SET(X,12)iNEXTX!FORY=17TO12!SET(9 

,Y) !SET(10,Y) !SET(36,Y) !SET(35,Y) !SET(56,Y) !SEr(55,Y) 

305 PRINTe259, "BRIDGE CONSTRUCTION STATUS!"! 

310 NEXT!PRINTe39O,"TYPE!"!!PRINTMO3,"C»PLETE"!!PRINT0518,"PON 

T0ON",'!PRINTe582,"SIfffiLE BEAM"|!PRINT8616,"TRUSS";:PRINTe710,"AR 

CH" ! ! PRINTe771 , "CANHLE^" ! ! PRINTe838 , "SUSPENSION" J 

320 PRINTre31,Bl (Z) ! !PRINT0598,B2(Z) ! !F-RINT@662,B3(Z) ! !PRINT@726 

,B1(Z) ! !PRINTe790,E5(Z) ; :F1<INT(?851,B6(Z) ! 

330 F0RX=15651T016355STEP6i:POKEX,191!NEXT!PRINTe295,"C»PANY AS 

SETS STATUS:"!!PRINTe356,STRING$(27,12);!PRINTM85,"Nl*KR OF HO 

RK CREMS="lCR(Z);:pRINTe613,"T0TAL R&D=";USINGU$!RO(Z)!!PRINT071 

l,"fttTERIALS="!USINGU$)M(Z)! 

335 PRINTI?869,"CASH RES.="!USINGU$!C*(Z)1 

310 PRINTe970,"<PRESS ENTER.>"; 

311 AA»=INKEY»!IFAA$=""THEN311 
350 RETURN 



22 



SofiSide,AprU198l 



Lines 100-150: This routine is the 'CtWANY FIMIHASES DISPLAY' 

100 cls:print"nahe! ";NA*(Z)!TAe(30);"PosiTioN: ";r»(Z){printa 
$:print"c»pany fijrchases display" ;TAe(50);"Tii*N{ "jn(Z):pRiNT 

A$!PRINT:PRINT"1. hiring of 5 ADDITIO^WL WtM CREWS $ 1,0 

00,000" 

105 PRINT"Z. PIRCHASE OF CONSTRUCTION MATERIALS $ 2,000,00 

0" 

110 PRINT"3, RESEARCH « I^VELOP^ENT INVESTMENT $ 5,000,00 

0"!PRINT;PRINTA«:PRINnAB(21);"CASH RESERVE = "JtPRINTUSINGlrtJC* 

(Z):PRINTA$;PRINTTAe(16);"ENTER CHOICE <0 = CONnNUE)";{II«>UTCH; 

IFCH=0THENRETURNELSEIFCH<;0ORCH>3TfCN100 

120 ONCHGOSUB130,110,150 

125 GOTO100 

130 CR(Z)=CR(Z)+5!C#(Z)=C*(Z)-10000flO:RETURN 

HO M(Z)=«<Z)+20flOOOO:C#(Z)=C»(Z)-2000000!RETlRN 

150 RD(Z)=RD(Z)+5000000!C*(Z)=C*(Z)-5000flOO:RETll?N 
Lines 500-510: This routine is the 'SECRETARY IBWTS' routine 
Here rarjdoH ntirters are generated and DATA 
elenerits are are display affectinq cijrrent 
cash afKwnts. 

500 resto(«:cls:x=rm)(10):print"yoii? secretary reports !":printa« 

:IFX<11PRINT"N0THING OF IMPTOTANCE IS IN THE NEWS.":PRINTA$:F'RIN 
T:GOaJB2000:RETURN 

501 X=X-10:FORRK=lTOX:READE«,MP:fCXT:PRINTE»;iFX<15THENC#(Z)=C*( 

z)-fpasEc*(Z)=c»(Z)+(fi* 

502 printa»:print"present cash REffiRVE = ";:printusingu«;c»(Z):p 

RINTAt!PRINT;GOSUB2000:RETURN 

511 DATA"CONGRESS HAS JUST PASSED A T(«IFF 
WHICH COST THE COMPANY $1,000, 000. ",1000000 

512 DATA"AN ACCOWnNG ERROR HAS JUST BEEN 
DISCOVERED COSHNG Tt£ CWPANY $10, 000. ",10000 

513 DATA"THE CHAIRMAN OF TJ€ BOARD HAS JUST 
DRTCRED YOJ TO SPEND $5000 FOR 

A WILDLIFE CONSERVATION PROJECT.",5000 

511 DATA"A FORMER Em.OYEE HAS COLLECTED $100,000 

IN m INSURANCE CLAIM AGAINST THE COMPANY.", 100000 

515 DATA"A WORKER SLOWDWW HAS COST THE COMPANY 
$3000. ",3000 

516 DATA"THE HEALTH 8 SAFETY DEPT. HAS CWffiEMffl) 
ONE OF YOUR REGIONAL OFHCES, IT COSTS 

YOU $300,000 TO REBUILD.",300000 

517 DATA"NEW GOVT. REGULATIONS JUST ADOPTED 
REGARDING FOREIGN TRADE COSTS YOU 

$2000. ",2000 

518 DATA"VM)ALS HH YOUR MAIN OFFICE CAUSING 
$500 IN DAMAGE.",500 

519 DATA"WORKER CARELESSICSS COST THE 
COMPANY $1000. ",1000 

520 DATA"A LABOR STRM CWJSES $50,000 IN 
LOST PRODUCTION. ",50000 

521 DATA"A LARGE PROOUCHON CRAfE HAS BEEN 
STOLEN IT COSTS $1,000,000 TO REFIACE.", 1000000 

522 DATA"A COfWUNICAHONS BREAKDOWN COST 
THE COWANY $7000 IN MISC. PROBLEMS. ",7000 

523 DATA"THE PRESENT CHAIRMAN OF THE BOARD HAS 
DIED, IT COSTS $30,000 TO REFIACE HIM.",30000 
521 DATA"A REGIONAL (FFICE HAS HAD A FIRE! !!! I 
n COSTS $300,000 TO REPLACE.",30O000 

525 DATA"THE GO^^RNfBIT HAS OWIGED THEIR POSITION 
TOWARDS COMPEHTION IN Tf£ INDUSTRY, IT 

SHOULD NOT AFFECT OJR BUSINESS, ",0 

526 DATA"A FORJtR CLIENT HAS GIVEN THE 
COMPANY $20,000 BECAUSE 

OF ITS PERFOWWNCE ON THE 
JOB.", 20000 

527 DATA"NEW LABOR CONTRACT ACTUALLY SAVES 
THE CWPANY $50, 000. ",50000 

528 DATA"COMPW<Y CAPTURES CORP(KATE SPY WB) 
RECIEVES $50,000 IN REWARDS FROM 
APPRECIATIVE C»PANIES.",50000 



529 DATA"COMPANY MW;ES ESUIF'MENT PURCtttSE ON FOREIGN 
MARKET AND SAVES $2, 000, 000", 2000000 

530 DATA"C»(PANY RESEARCH DISCOVERS NEW COMMUNICAHONS 
DEVICE WHICH SELLS FOR $1,000, 000. ",1000000 

531 DATA"ACC01WTING DEPT. REPORTS PREVIOUS EAFWINGS 
UNDERSTATED, CO^PANY GAINS $3000. ",3000 

532 DATA"GOVT. LOBBY POKES LEGISLATION THROUGH CONGRESS 
WHICH SAVES COMPANY $10, 000. ",10000 

533 DATA"STOa(S WHICH THE COMPANY OI*IS EARN DIVIKNDS 
OF $800, 000. ",800000 

531 DATA"fCW ACCOUNTNG SYSTEM SAVES COiff'ANY 
$1000. ",1000 

535 DATA"MAJOR COMPETITOR GOES BANKRUPT 
CtWPANY GAINS $50,000 IN NEW 
REVENUES. ",50000 

536 DATA"CI>PANY INSTALLS NEW COMPUTER SYSTEM 
AND SAVES $50,000 IN LABt«,",50000 

537 DATA"TfCRE HAS BEEN SOfE PROTEST OF THE 
COMPANY'S ACTIVITIES IN THE EVERGLADES, 
ffflWEVER, IT SHOULD NOT AFECT BUSINESS.", 

538 DATA"GOVERNMENT LAUNOCS INVESTIGAUON INTO 
ALLEGED UNDERGROIM) ACTIVmES BY SOfC 

COfPANY OFFICIALS, SmULD NOT AFFECT BUSINESS.", 

539 DATA"HER DAUGHTER HAS JUST HAD A BABY, THIS 
SHfflJLD NOT AFFECT BUSINESS. ",0 

510 DATA"SHE IS FEELING POCKLY AND WISHES TO GO Hm£.",0 
Lines 2000-2001: INKEY$ wait routine. 

2000 PRINTTAB(28)!"<PRESS ENTER>" 

2001 AA$=II«;EY$;IFAA$=""THEN2001ELSERETURN 

Lines 3000-3028: This routine is the 'R S D Phase'. 

3000 CLs:pRiNT"NWt; ";na$(Z);tab(30);"pqsition: "jr$(Z):print 
a$:print"research a development sTATis";TAB(50);"Tif»i: "jn(Z): 
pRiNTA$: print: print 

3010 X=RM)(30):X»=Xx1000000:IFRD(Z)>X»THEN3020 

3015 PRINT8155, "RESEARCH 8 DEVELOPMENT REPOTS NO PROOSSS THIS 

TURN.":PRINT;GOSUB2fl00;RETUI9( 

3020 X=RND(6):PRINT"RESEARCH 8 DEVELOPMENT REPt«TS A COST BREAKT 
HR0UGH;":PRINT:PKINT"THE cost of a ";:ONXGOSUB3023,3021,3025,302 
6,3027,3028:GOSUB2000:RO(Z)=RD(Z)-Wffl(RD(Z)/5000000)x5000000:RET 

\m 

3023 PRINT"PONTOON BRIDGE HAS G»E FR»i 

";pc(Z);" TO ";pc(Z)i.75j" per ioo/ft.":pc(Z)=pc(Z)i.75:retu»i 

3021 PRINT"SINGLE BEAM BRIDK HAS GONE FROM 

"IBC(Z);" TO "]mi)*,75i" per ioo/ft.":bc(Z)=h;(Z)i.75:return 

3025 PRINT"TRUSS BRIDGE HAS GIM FROM 

";TC(Z)|" to ")TC(Z)x.75:" PER 100/FT.":TC(Z)=TC(Z)1(.75:RETIMI 

3026 PRINT"ARCH BRIDGE fttS GONE FROM 

"5AC(Z);" TO ";AC(Z)*.75;" per 100/n.";AC(Z)=AC(Z)i.75:RETURN 

3027 PRINT"CANTILEVER BRIDGE HAS GONE FROM 

"lcc(Z);" TO ";cc(Z)x.75;" per ioo/ft.":cc(Z)=cc(Z)i.75:return 

3028 PRINT"SUa>ENSION BRIDtX HAS GONE FROM 

"fsc(Z);" TO ";sc(Z)>i.75}" per ioo/ft.":sc(Z)=sc(Z)x,75:return 

Lines 1000-1020: This rcwtine displays bridge specs. 

1000 CLs:PRiNT"NAhE: ";na$(Z);tab(30);"position: ";r$(Z):print 
a$:print"present bridge specifications display";tab(50);"tuiw: 
";n(Z):PRiNTA$:PRiNT" type:";tab(15);"TRAFfic;";tab<26);"cost/ 

100FT.";TAB(39);"SAFE DIST.";TAB(51):"fWX. DIST." 

1010 PRINr"P0NT00N";TAB(15);P$(Z)!TAB(26)!USINaj<$!PC(Z):;PRINTT 

ab(io);ps(Z);tab(53);pm(Z) 

1011 pRiNT"siNGLE beam";tab(15);b$(Z);tab(26);usinglk$;k(Z);:pr 

INnAB(10);BS(Z);TAB(53);BM(Z) 

1012 print"truss"jtab(15):t$(z);tae(26);ifiinglk$;tc(z);:pkinttab 
(io);ts(Z);tab(53);tm(Z) 

1013 PRINT"ARCH";TAE(15);A$(Z);TAB(26);USBffiLK$;AC(Z);:PKINnAB( 

io);as(Z);tab(53);am(Z) 

1011 print"cannlever";tab(15);c$(z);tab(26);usin(lk$;cc(z);;pri 

INHABdO ) ;CS(Z) ;TAB(53) ;CM(Z) 

1015 print"suspension" ;tab( 15) ;s$(Z) ;tab(26) ;usinglk$;sc<Z) ; jpri 

NnAB(10);SS(Z);TAB(53);SM<Z) continued on next page 
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continued from previous page 

mi pRmM'.FWivam reserve =";usiNGu»;c»(Z);!pRiNnAB(35)}" 

MATERIALS ="|USINGU$;M(Z)!PRIHTA» 
1020 aiSUB2000:RETURN 

Lines 5000-5050! This routine is the contract bidding phase. 

5000 cls:print"name; ";NA$(Z);TAB(30);"posnioN: ";r$(Z):print 
a$:print"C(mract bidding phase"!TAB(50)J"t«»!: ";ti(Z):printa» 

!PRINT"A client YOU ARE DEALING WITH NEEDS A BRIDGE WITH THESE S 

pecs,":printa$ 

5001 X=RND(4) :ONXGOTO5002,5003f5001,5005,5006,5007 

5002 X»="PONTOON"{GOTO5008 

5003 X$="SINGLE BEA«":GOT05008 
5001 X»="TRUSS";GOT05008 

5005 X$="ARCH"tGOTO5008 

5006 X»="CANTILEVER"!GOTO5008 

5007 X$="SUSPENSION":GOT05008 

5008 IFX=1THENY=RN0(PM(Z) ) !C=1 {ELSEIFX=2THENY=RND(B«(Z) ) JC=2:ELS 
EIFX=3THENY=RM)(TM(Z) ) !C=3:ELSEIFX=1TfCNY=RM3(AM(Z) ) !C=1!ELSEIFX 
=5THENY=RND(CH(Z) ) :C=5:ELSEY=RND(SM(Z) ) !C=4 

5009 IFX=lTHENX=75000:h=5:F=PC(Z):ELSEFX=2T^ENX=210000:M=8:F=£C 
(Z):ELSEIFX=3THENX=300000!H=15!F=TC(Z):ELSEIFX=1TH£NX=315000:I1=2 
5:F=AC(Z) !ELSEIFX=5THENX=525000 :M=31!F=CC(Z) {ELSEX=998000 !H=50 !F 
=SC(Z) 

5010 prmtab(io);"type = "!x«;tab(io);"Length =";yi"ft."!printa 

»;PRINT"Y(M COST FOR THIS BRIDGE IS ";USINGU$JYxF/100:PRINTA$ 
5015 FCR(Z)<(Y/100)«;THENPRINT"YOU DO NOT HAVE ENOUGH WORK CREW 
S FOR THIS BRroGE."!PRINT:GOSUB2000!RETURN 
5020 IFM(Z)<(Y/100)x(Mxl0000)THBfRINT"YOU DO NOT HAVE THE C»IST 
RUCTION MATERIALS TO BUILD THIS BRIDGE."!PRINT:GOSUB2000!RETURN 
5025 INPUT"WHAT PRICE DO YOU WISH TO BID FOR THIS BRIDGE"|BD!PRI 

NTA«:FE©>(RND(11)+1)i((XiY/100)i.9)THE1«>RINT"YOUR FfilCE WAS TOO 
HIGH, CUSTOMER TAKES BUSINESS ELSEWHERE,"! PRINT :GOSUB2000:RETUR 
N 
5030 PRINT"Y0U GET TtC CONTRACT AM) MAKE ";USINGU$;BD-(F)i!Y/100)! 



C#(Z)=Ct(Z)tBO-(FiY/100)!M(Z)=«(Z)-(Y/100>i(Mxl00D0)!IF«(Z)<0THE 

NM(Z)=0 

5010 FX$="PONTOON"THENB1(Z)=61(Z)+1ELSEIFX*="SINGLE BE/*)"THENBZ 

(Z)=B2(Z)+1ELSEFX$="TRUSS"THENB3(Z)=B3(Z)+1ELSEIFX$="ARCH"TICNB 

1(Z)=B1(Z)+1ELSEFX»="CANTILEVER"TICNB5(Z)=85(Z)+1ELSEB6(Z)=86(Z 

)+l 

5050 GOSUB2000:RETURN 

Lines 5500-6020! This roirtine checks for 3dv3nce«ent in 
position, 

5500 X»=Rfffi(300)!FC*(Z)>=OTHENRETURNaSEC*(Z)=C*(Z)il.5!IFC»(Z) 

<X»)H000000)f-lTHENGOSUB9000 

6000 IFC»(Z)>50000000ANDCB(Z)<5Tf£NR1(Z)="DISTRICT MANAGER"!C8(Z 

)=5!ELSEFC*(Z)>100000000AfDCB(Z)<10ANDC6(Z)>1THENR»(Z)="REGIONA 

L SUPERVISOR"!CB(Z)=10!ELSEIFC#(Z)>150000000ANDCB(Z)<15ANDCB(Z)> 

9THENR$(Z)="C0RP0RATE ADVIS0R"!CB(Z)=15 

6010 IFC»(Z)>200000000AM)CB(Z)<ZOAM)CB(Z»11THENR«(Z)="C»PANY R 

EPRESENTATIVE"!CB(Z)=20IELSE IFC»(Z)>300000000ANDCB(2)<30AM)CB(Z 

)>19TI£NR-$(Z)="V.P, OF PRII)UCTION":CB(Z)=30!ELSEIFC*(Z)>10000000 

0ANDCB(Z)<10ANDCB(Z»29THEM«(Z)="COfPANY PRESIDENT" !CB(Z)=10 

6020 IFCB(Z)=50THEN7000!ELSEFC*(Z)>500000000ANDCB(Z)=10TfOCB(Z 

)=50!RETURN!ELSERETIMI 

6999 ' WINNER!!!!! 

7000 CLS!PRINT" 

";TAB(16)|NA»(Z);" has just been DEaARED THE 

CHAIRMAN OF THE BOARD 

«GAfC IS OVER»"!FORA=lTO2000!NEn!R 
UN 

Lirie 9000! Bankrupt routine, 

9000 CLS!PRINTTAB(15)r'U NFORTUNATE NEWS !"!PK[Nn 
AB(15)iSTRING$(33,15):PRINT!PRINT:PRINTTAB(10);NA$(Z);" HAS GOfC 
EiANKRUPT AND IS OUT OF THE GAhE,":NA«(Z)="X"!PRINT!GOSUB2000:FO 
RA=1TOP:IFNA*(A)0"X"THENRETURNELSENEXT 

9010 CLS!PRimTAEi(15);"N0 MORE ACHVE PLAYERS, GAME ENDS."!PRINT 
!PRINT!GOSIB2000:RUN ^ 



S-80 ONE LINERS 



1 DEFINTJ,N!A$=CHRt(RNO(158)+33)JB*=a*;$(RND(158)+33)!F0RN=lTO11 
!J=ABS(N-7):F1i;lKTTAB(7-J)A$TAE(8+J)BtTAB(22-J)A$TAB(23+J)BtT(«(3 
7-J)A$TAE;{38+J)BtTAB(52-J)A»TAB(53+J)B$!fEXT!G0TQl 

Brian Schipper 
HoUand, MI 



10 RANDOM:FORZ=OT010!A(Z)=RND(127)!B(Z)=RND(17)!NEXTZ!FORY=1T010 
!SET(A(Y),B(Y)):SET(A(Y),17-B(Y))!SET(127-A(Y),B(Y));SET(127-A(Y 
),17-B(Y))!NEXTY!R=RND(2)!IR=1THENGOT010 ELSEFORU=lTO250:f£XTU: 
CLS!GOTO10 

Mark Nelson 
Palmyra, WI 



PRINTe513,CHR»(19O)!FORT=lTO5O:NEXT:PRINT0513,CHR*(189)!F[KT=l 
T050!NEXT!PRINTe513,CHRt(183)!FORT=lT050!NEXT!PRINTe513,CHR$(159 
)!FORT=lTO5O!NEXT!F'RINT0513,C.HRt(175):FORT=lTO5O!>eT!PRINT8513, 
CHR»(187) !FORT=1T050:NEXT!RUN 

Brian Berkebile 
Amherst, NH 
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COMPUTING 

CAPABILITIES! 
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THE CHAl lERBOX 

All of the features of the Comm-80 Interface 
plus a built-in acoustic modem for 0-300 baud operation. 
Includes Full/Half Duplex terminal software. Unit is 
covered by a 90-day guarantee from MICROMINT. 
#4-81 (5 lbs.) $239.00 







ST80* SMART TERMINAL PACKAGE 

All four programs include the ability to use an unmodified TRS-80TM keyboard to produce RUB, ESC, and other control 
characters for time sharing, software control of the RS-232C board, repeat key, bell, software support for the three most 
common upper/lower case hardware conversion, and line printer output. 

ST80* UC 

Preset parity, word length, and baud rate (regardless of switch settings on the RS-232C board) for THE SOURCE, 
MICRONET, and FORUM 80, automatic testing of the RS-232C board, and even spooling of prepared messages on tape 
directly into FORUM 80 using a BASIC program supplied as a line listing. 4K Mod I/Mod III cassette $24.95 

ST80* 

Reprogram your RS-232-C board from the keyboard, and run at different baud rates. Note: does not have auto testing of 
the RS-232-C or tape spooling. 4K Level II Cassette $49.95 

ST80* D 

Connection time clock, option of user-created translation tables for keyboard, gathering and pre-formatting data to be sent 
directly from disk to host computer, spooling of received files to disk or printer, editing of received files, and auto logon. Use 
it with VTOS 3.1, and get device-driven I/O, job logging, and chaining. 32Kdisk program $79.95 

ST80* III 

ST-80' D with extra utility programs. 32K disk program $150.00 

THE SOURCE 

Would you like to send mail across the country overnight, write one letter and send it to a hundred people, read the news 
right off the wire service, program in COBOL, FORTRAN, or RPG II, advertise on a nationwide electronic bulletin board, 
join a real time national computer club, leave messages when you are out of town, make travel arrangements through your 
computer, use a discount shopping service, reach a whole library of specialized information on business, real estate, science 
and engineering, and personal applications, find out what the weather is around the country, and use dozens of high-powered 
applications programs? 

Connect your microcomputer to THE SOURCE! THE SOURCE is a bank of mainframe computers in McLean, Virginia 
connected by TYMNET and TELEMET data transmission services to hundreds of cities around the country. Most urban areas 
can access THE SOURCE by local phone call. Costs: 

One time subscription fee (includes manuals) $100.00 

Connect time after midnight (per hour) J2.75 

Connect time between 6 p.m. and midnight (per hour) $4.25 

Connect time 8 a.m. to 6 p.m. (per hour) $15.00 







T56;HP1RDSID€ 



6 South St .MiKord, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1.800-258-179C 



■ST80 Is a trademark of Lance Mlcklu3, lnc.TRS-80 Is a trademark of 
Tandy Corp. 
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Perspective Drawing 
by Joan R. Truckenbrod 

Perspective drawing can be 
constructed with the aid of the 
microcomputer to show an object 
as it appears from different 
viewing points in space. The object 
can be viewed from the top, side, 
or bottom. For example, a figure 
or object can be tilted up to view 
the bottom or tilted down to view 
the top. The view of the figure in a 
perspective drawing is determined 
by the orientation of the figure to 
the X, Y and Z axes. In 
constructing a perspective it is 
helpful to be familiar with the 
effects of these rotations on the 
appearance of the figure. 
Sequential rotations of an object in 
space on these three axes were 
illustrated in the February and 
March issues of SoftSide. The 
program that rotates three- 
dimensional figures in space and 
thus allows you to create 
perspective drawings, is listed and 
described in the February issue. 
This program is a valuable tool for 
creating three-dimensional 
drawings of a figure that are 
sometimes difficult and always 
time-consuming to construct by 
hand. 

Objects drawn in perspective can 
be represented by lines, planes, or 
volumes. Stick figures are used for 
quick three-dimensional sketches 
of an object. The examples in 
Figure 1 illustrate the word LINE 
drawn in line with various X, Y 
and Z rotations in space. Figure 2 
illustrates the use of two- 
dimensional planes to represent the 
same figure. The change in the 
figure's orientation in space is 
obvious here as the length and 
width of the planes appear to 
change as the figure is rotated. 
Objects can also be represented as 
volumes as shown in Figure 3. In 
these examples the object has 
height, width and depth and is 
rotated in three dimensions. 
Volumes require more lines to 
define the object and consequently 
are more complex figures. Thus, 
when these wire frame figures are 
rotated in space, they can become 
difficult to visuaHze due to the 
overlap of lines. Since this 
perspective program does not 
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remove the hidden lines, all of the 
lines in the figure are drawn. One 
technique for clarifying these more 
complex drawings is to introduce 
shading or color to differentiate 
various planes in the figure. Figure 
3f shows an object in which three 
different gray values were used to 
identify the three frontal planes in 
order to clarify the object. In 
drawings of this complexity, gray 
values or different colors help the 
viewer understand the drawing. 
When using complex figures which 
require a large number of 
coordinate points, it is necessary to 
include a LOMEM: 16500 
statement in the program so that 
the program uses memory space 
other than that of the graphics 
screen and does not interfere with 
the drawing. 

There are advantages and 
disadvantages to using perspective 
drawing techniques to illustrate an 
object. Perspective drawings can 
be used to realistically describe an 
object. These drawings can 
emphasize one prominent feature 
of an object or can show different 
views of an object. The appearance 
of the figure can be enhanced or 
distorted as various aspects of the 
figure can appear to be stretched 
or compressed. In various 
perspective views the appearance 
of the figure may become distorted 
or ambiguous, as is evident in 
some of the examples shown here. 
Care must be taken in perspective 
drawings to minimize distortion 
and to present the object in the 
clearest manner possible. Since the 
orientation of a figure in a 
perspective drawing is specified in 
this program by a combination of 
X, Y and Z rotations, it is helpful 
to be familiar with the effect of X, 
Y and Z rotations independently, 
and in combination, so that you 
may create the desired view in your 
perspective drawings. Rotation of 
a figure around the X axis will 
provide views of the bottom or top 
of an object, together with the 
front and/or one of the sides. If 
you would like to show a feature 
or detail on the top or bottom 
planes of the figure, use an X 
rotation. An X rotation of zero or 
180 degrees shows the horizontal 
planes (top and bottom) as straight 
horizontal lines. 90 degree X 

SoftSide, April 1981 



rotation shows the top of the 
figure as a vertical plane, and a 
270 degree X rotation shows the 
bottom of the figure as a vertical 
plane. An X rotation reduces the 
apparent height or vertical 
dimension of a figure. 
Consequently it is best to use a 
20-45 degree X rotation to show 
the figure realistically. Figures with 
an emphasis on the top plane are 
illustrated in figures 2a, 2c, 3b and 
3f. The bottom of an object can be 
shown realistically by employing a 
315-340 degree rotation on the X 
axis. In order to present a realistic 
three-dimensional view of an 
object it is best to rotate the figure 
on at least two axes. The figure 
can be rotated on the Y axis to 
show the side of the figure with 
the front, or the side and the back 
of the figure. A Y rotation will 
show the right side of the figure 
with the front as it is rotated 
between zero and 90 degrees on the 
Y axis. This side and the back of 
the figure will be in view as the 
figure is rotated between 90 and 
180 degrees on the Y axis. 

Between 180 and 270 degrees the 
back and the left side of the figure 
will be in view, and between 270 
and 360 degrees the left side and 
the front will be in view. In 
appearance a Y rotation can 
reduce the width or the horizontal 
dimension of the figure. A 20 
degree Y rotation is illustrated in 
figure 3a, a 30 degree rotation in 
figure 2a, and a 60 degree Y 
rotation is illustrated in figure 3g. 
Rotations on the Y axis create the 
effect that the object is either 
coming towards the view or 
projecting back into space away 
from the viewer. Combinations of 
X and Y rotations can be used to 
create effective perspective 
drawings as illustrated in figure 2c. 
Since rotations around the Z axis 
turn the object around in a circle 
in the same plane as the paper or 
the video screen, they can be used 
to give direction to the figure. As 
shown in figures Ic, 2b and 3c, a 
30 degree Z rotation points the 
figure down towards the lower 
right-hand corner. A 90 degree 
rotation on the Z axis points the 
figure directly towards the bottom 
of the screen, as in figure If. 
Combinations of all three types of 



rotation can be used to create 
unusual perspective views. For 
example, figures can be drawn 
upside down as in figures 2e and 
3d, backwards as is shown in 
figure 2f , or both upside down and 
backwards as in figure 3e. In 
constructing your own perspective 
drawings, experiment with various 
orientations of your own object in 
the manner demonstrated here. 
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Figure Ic. 30 Z, 30 Y, 60 X 
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Figure If. 90 Z, 60 Y, 30 X 



FIGURES CONSTRUCTED WITH LINES: 
ROTATION IN THREE DIMENSIONAL SPACE 
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Figure la. 330 Z, 30 Y, OX 



Figure lb. Z, Y, OX 
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Figure Id. 30 Z, 60 Y, 60 X 



Figure le. Z, 60 Y, 60 X 
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Figure Ig. 180 Z, 60 Y, 30 X 



Figure lii. Z, 20 Y, 180 X 



PERSPECTIVE DRAWINGS OF FIGURES CONSTRUCTED WITH PLANES 
Specifications for Z, Y and X rotations. 
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Figure 2a. Z, 30 Y, 30 X Rotation Figure 2b. 30 Z, Y, 30 X Rotation Figure 2c. Z, 340 Y, 30 X Rotation 



continued on next page 
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Figure 2d. Z, 330 Y, 30 X Rotation Figure 2e. 180 Z, 20 Y, 30 X Rotation Figure It. Z, 210 Y, 30 X Rotation 



PERSPECTIVE DRAWINGS OF THREE-DIMENSIONAL FIGURES 
Specifications for X, Y and Z rotations. 



Figure 2g. 340 Z, Y, 45 X Rotation 




Figure 3a. 330 Z, 20 Y, OX Rotation Figure 3b. 340 Z, Y, 30 X Rotation 





Figure 3c. 30 Z, Y, 30 X Rotation 
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Figure 3d, 130 Z. Y, 30 X Rotation 



Figure 3e. 200 Z, 180 Y, 20 X Rotation 




Figure 3f. Z 60 Y, 20 X Rotation Shading used to differentiate planes in object. 
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SAY YOHO 




by Scott Adams 

This month we will take a look 
at two milestone programs recently 
released for the small computers. 
"Zork"™ and "Classic 
Adventure"™. 

I had the privilege to play a 
version of "Zork"™ (back when I 
earned an honest living as a 
programmer at Stromberg Carlson) 
on a large DEC PDF machine. 
The credits at the beginning said it 
was a wildcat conversion by a 
slightly crazed DEC employee who 
wished to remain anonymous as he 
feared for the sanctity of his job. 

"Zork"™ was an ambitious 
undertaking, where Crowther & 
Woods had blazed a trail, this 
program put in a paved highway. 
Gone was the restriction of one or 
two word baby talk sentences and 
in its place you could speak full 
English! (Though, to be honest, 
the format looked for was "verb, 
object, indirect object, such as: 
"Hit the hammer with the nail".) 
Also there appeared a whole new 
and different world to conquer, 
complete with mind-boggling 
puzzles, evil denizens, and, of 
course, fabulous treasures. 

Some of the problems, I'm 
afraid to say, were difficult only 
because of errors made in the 
coversion to the PDF, but on the 
whole the program was as 
addicting as "Original Adventure" 
was. 

Well now "Zork"™ is available 
for use on your S-80 Model I or 
Apple II. It does require disk, 
(from which it makes frequent 
access) but as you decend deep 
into the bowels of the underground 
empire you will quickly forget you 
even have a disk drive! I had only 
a short time to play before 
deadline on my column, but the 
beginning play appears to be true 
to the original version. I have 
heard that a few minor alterations 
were made to get it to fit on a 
mere 90K diskette but I'm sure 
that if you like Compunovels 
you'll love "Zork"™! "Zork"™ is 
written by Infocom and is 
published by Personal Software 
and should be available wherever 
fine software is sold. I highly 
recommend it. 

The other piece of major 
Compunovel software that was just 



released is "Classic Adventure"™. 
This is, as the name implies, yet 
another version of Crowther & 
Woods "Original Adventure" for 
the Apple II. Why another version, 
you ask? Well this is the first 
version to say it is complete and 
totally unmodified from Crowther 
& Woods' version. Everything is 
there, from Breathtaking View to 
the final Grand Master Game! All 
other versions of "Original 
Adventure" have left out 
locations, sections, descriptions, 
and many have added 
embellishments which did not exist 
in the original. Not so in "Classic 
Adventure"™. It is complete right 
down to the "save" feature. And 
the second and even more stunning 
piece of news is it does not require 
a disk to run! The entire program 
is in Machine Language and 
through heavy use of Page calls 
and text compression manages to 
fit entirely in 48K. You can 
purchase it on tape or disk. Each 
version can be transferred either to 
tape or disk, and will also run on 
3.2 or 3.3. The best part is the 
price: $14.95 for tape and $20.95 
for disk. So even if you have 
already played another version of 
Adventure, it is but a minor 
investment to have a true classic 
(remember, no disk accesses). I 
recommend getting the tape 
version and transferring it yourself 
to disk as it only takes six minutes 
to do originally and saves you $6. 
"Classic Adventure"™ is written 
by John Rausch and published by 
Adventure International, a division 
of Scott Adams, Inc. 

For those of you who haven't 
noticed, the computer shows are 
starting to make the rounds again. 
If you get a chance to go to one, 
stop by the AI booth and say hi. If 
you live in California or can get 
there, the one show that promises 
to be the biggest and best this year 
is the annual San Francisco 
Computer Faire. It is held the first 
week in April in Brooke's Hall and 
is so large that the exhibits are also 
downstairs in the parking garage 
under the plaza. This show attracts 
exhibitors from as far away as 
England and Japan. If you can, 
don't miss this one. 

So until next month I'll just say 
Happy Adventuring (and ^ 

Zorking) and YOHO. . . Zj 
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SPECIAL 
DELIVERY 



with 



EXTRACT 



A 100% Machine Language Word Processor from: 



Quality Software Distributors 



We can't slop improving and expanding the 

capabilities of your TRS-80. By using SPECIAL 

DELIVERY with EXTRACT and either Electric Pencil 

or Radio Shack's Scripsit you can get even more 

out of your computer, from just one package you 

will get all this: 



MAILFORM 

Create MAILFILE: The ONLY complete name and 

address list entry/editor program written in 

machine language. 



MAILRITE 

Print letters written with either the Electric Pencil 

or Radio Shack's Scripsit inserting information 

from a MAILFILE into the letter for personalizing 

and addressing. 



EXTRACT 

Take out information from the MAILFORM, the 

machine language mailing list. Find the names you 

need by Zip Code, Street Address, Gender, Age or 

any other wayl 



SORT 

In-Memory sort on an entire address list using any 
field as the key. 



LABEL 

Prints labels from MAILFILE. 



CONVERT 

Make MAILFILE from RS mail list. 



SPECIAL DILIVCRY will run on your SSO wil/i 
TRSDOS . NIWDOS or any other TRS - like 
DOS. 

$125.00 




6 South SI.MiKord. NH 03O55 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 
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COMPUTERS 

O APPLE II PLUS Computer, 48K RAM (#47-203) $1299.00 




PERIPHERALS 




SUP-R-MOD RF Modulator (#47-100) $34.95 

APPLE II Disk Controller w/Drlve (#47-004) $579.00 

APPLE II Disk Drive (#47-005) $439.00 

LOBO Disk Drive (#47-3101) $379.00 

MICROSOFT Z-80 SoftCard (#47-80) $279.00 

MICROSOFT RAMCard (#47-81) $169.00 

Applesoft BASIC Language Card (#47-ASC) $195.00 

Integer BASIC Language Card (#47-IC) $195.00 

PASCAL Language Card (#47-PAS) $469.00 

MOUNTAIN COMPUTER Apple Clock (#47-MH003) $269.00 

MOUNTAIN COMPUTER ROMWriter (#47-MH015) $169.00 

MOUNTAIN COMPUTER ROMPIus w/Fllter (#47-MH007) $189.00 

MOUNTAIN COMPUTER Music System (#47-MH022) $519.00 

MOUNTAIN COMPUTER A/D + D/A (#47-MH023) $329.00 

MOUNTAIN COMPUTER Expansion Chasis (#47-MH024) $609.00 

HARDSIDE Memory Upgrade Kit (#5-1102) $59.00 

APPLE Sllentype Printer v»/lntBrface (#47-000) $569.00 

Parallel Printer Card and Cable (#47-9) $100.00 

CCS Arithmetic Processor (#47-7811C) $399.95 

CCS Asynchronous Serial Interface (#47-771QA) $159.95 

CCS Synchronous Serial Interface (#47-7712A) $159.95 

CCS GPIB (IEEE-4B8) Interlace (#47-7490A) $300.00 

© CCS Calendar/Clock Module (#47-7424A) $125.00 

LYNX Communications Interface (#19-85) $239.00 

© KURTA APPLE Graphics Tablet (#47-1000) $659.00 

VERSAWRITER (#47-1100) $239.00 

ALF AM-II Music Synthesizer (#47-1200) $189.00 

LEEDEX 12" B/W Monitor (#5-100) $159.00 

NEC 12" Monochrome Monitor (#5-200) $239.00 

Color Video Receiver (#26-3010) $389.00 





TS€:l-iPiJ^ID€ 

6 South St .Milford. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1 -800-258-1 790 



TERMS: Prices and specificalions are suject to change. HARDSIDE ac- 
cepts VISA & MASTERCARD. Certified checks and Money Orders: Personal 
checks accepted (takes 3 weeks lo clear). HARDSIDE pays all shipping 
charges (within the 48 states) on all PREPAID orders over $100.00. On all 
orders under $100 a $2.50 handling charge must be added. COD orders ac- 
cepted (orders over $250 require 25% deposit), there is a $5.00 handling 
charge. UPS Blue Label, and Air Freight available at extra cost. TRS-80 is a 
tradmark of Tandy Corp. 
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BASICALLY SPEAKING 

THE MOST UNUSUAL PROGRAMMING 
CONTEST YOU'VE EVER HEARD OF 

Can you write English? Can you write BASIC? Can you 
do both at the same time? (Can you wiggle your ears, 
too??) 

IF YOU = CAN THEN STOP 
...to finish reading this before turning the page. 

Announcing: The SoftSide "BASICally Speaicing" 
Programming Contest! The object is to write one or more 
lines of proper BASIC code which also make sense as 
Enghsh. The above one-liner is one example; here are a 
few others: 

"Valentine" 

1 IF NOT YOU THEN END 

"Las Vegas" 

1 LET BET = VAL(UE$(1)) 

2 IF LUCKY AND WEWIN(IO) THEN ON WE GOTO 
100, 1000, 10000 

"Happily Ever After" 

1 FOR TIME = NOW TO ETERNITY 

2 LOVE = YOU AND I 

3 IF NOT YOU AND I THEN NEXT TIME 

4 REMIND ME TO 

5 GET SUSIE 
"Love Story" 

1 TUESDAY = THEDAY 

2 CALL TUESDAY 

3 LET ITRING = 5 * MINIMUM 

4 IF AMAN THEN STOP 

5 IF NOT AMAN THEN FOR ALL = OUR TO 
DAYS STEP BYME 

6 LET US = MARRIED 

7 NEXT ALTAR 

8 GET MOVING 

9 GOTO 1 : REMOTE PLACE 

10 ALL = LOVE AND JOY : END 
Here are the Official Rules: 

1 . All code must conform to proper BASIC syntax on at 
least one of these three computer systems: Apple II, Atari, 
or TRS-80"(any version, model, or level). Submissions will 
be judged EXACTLY as submitted, with no allowances 
for typographical errors. 

2. The "programs" need not do anything useful. 
However, programs which CAN be run without hanging, 
crashing, or generating error messages will have a 
competitive edge. And programs which actually DO 
something unique when run will have an additional 
advantage. 

3. The BASIC line numbers need not fit into the English 
message of your program. They will be ignored by the 
judges, unless you do something unique and creative with 
them which contributes to the message. 

4. The ENGLISH syntax of your code need NOT be 
perfect. Entries will be judged on creativity and originality 
as well as grammatical sense. But you can expect to lose 
points if the English meaning is TOO forced or obscure. 

5. Entries may be any length. The English message may 
be humorous or serious, ridiculous or sublime. You may 
submit as many entries as you like, but every entry should 
be on a separate sheet of paper and should be labelled 
with your name, address, phone number, and the 
computer for which it is written. 

6. All entries must be postmarked no later than June 30, 
1981. Entries are not returnable, and become the property 
of SoftSide. 

7. Judging will be by members of the editorial staff of 
SoftSide. Winners will receive certificates good toward the 
purchase of software from TSE, and will have their entries 
published in SoftSide. Other entries deserving honorable 
mention will also be published. 

IF YOU = GOOD THEN YOU = WINNER 
Good luck! 




T 



From 

The Programmers Guild 

In a desperate race against the sun you 
search for SMAEGOR Monarch of Dragon- 
folk, who has kidnapped the Princess of the 
Realm and holds her in a distant and 
unknown place. In a quest for honor and 
glory, you must search the land, seeking out 
the tools needed for the ultimate confronta- 
tion. On the river delta, in the abandoned 
Temple of Baathteski, Goddess of the Blade, 
everywhere, clues abound. But WHERE is 
the Princess? 

Now, as never before, the genius of 
CHARLES FORSYTHE shines in this new 
Machine Language ADVENTURE. 
DRAGONQUEST! Can YOU save M'lady 
from the iron clutches of SMAEGOR? 

S-80 Level II 16K Cassette $15.95 

S-80 32K Disk $21 .95 

Dealer Inquiries Invited 
TAPE $15.95 DISK $21.95 



^^J^J VfiA 
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S-80 One Liners 

1 F0RE;=26T01STEP-l!F0RC=lT050!A=A+.Z5!PRB(nAE;(Z8+SIN(A)xE)|STRI 
NGt( 10 ,191 ) !FORZ=1TQ10 INEXTZINEXTCB 

Dan Cobb 
Bucyrus, OH 

IFC=OCLS!C=i:GOTOELSEF'RINTei92,CHR$(31);FORS=OTO9!Ff;INT0192+Si 
64+RND(1O))«S,"x";:NEXT!FORT=1TO9OO!NEXT:IFZ=OPRINT0O,"YOIR F'ERSO 
NALITY TRAHS WILL BE REVEALED BY WHAT YOJ SEE IN THESE CONSTELL 
ATIONS.I, HERLIN THE SHRINK, SAY U IS SO."!Z=ltGOTOELSEGOTQ 

Bin Burnham 
Redwood City, CA 

1 CLS:FORX=129TQ191:FORY=129T0191!D$=CHR$(X)+CHR$(Y);A=RND(895)+ 

6i:printi3a,d$;!nexty;nextx;gotoi 

Janelle Keberle 
Chagrin Falls, OH 

1 IFW>OGOT01ELSECLSID=100:B=20!L=B!S=1!E=.1!C=.05!F=.5:FORW=1T05 
2! F0RX=-LT0LSTEPS ', Y=SQR ( ABS ( D-XxX ) ) ! IFD<X''2 Y=F ! SET ( YxS+B ,X+ZO ) ! 
B=E:+C : D4)-E ! NEXT ; L=-L ! S=-S : NEXT ! ELSESET ( YxS+B , X+2 ) ; E:=Ei+C ! 0=D-E ! 

next!L=-l:s=-s:next!gotoi 

Michael Lyon 
Kansas City, MO 

1 S$=CHR* ( 140 ) : CLS : F0RJ=1T016 '. P=RND ( 5i ) +67+64)i(RND (13 ) ! FraNTeP , CH 
R*(14O);:FORT=lTO8O;NEXT:pRINT0P,CHRt(191);:PRINT(?P+l,CHR$(157); 
!PRINT@P-1 ,CHR$(174) I :FORT=1T020 tNEXT.'PRINT0P-64,CHRt(113) ) '.FION 

T0p+6i,CHR*(ie8) ; ;pRiNT0p+3,s$+s$; :print0P-i,s*+s»; :nextj!gotoi 

L.O. RexRode 
Willoughby, OH 



Programming Hint 



In many programs the ' is often used as the 
abbreviation of REM. This is incorrect. The ' is 
actually an abbreviation of :REM (see pages 1-8 
of the Level II Manual). 

The ' takes three bytes of memory to store, in 
Hex. (3A 93 FB). REM only takes one byte of 
memory to store, in Hex. (93). 

When ' is used at the beginning of a line, it is 
using two more bytes of memory than REM 
would. For example: 

10 ' THIS IS A REMARK. 

vs . 

10 REM THIS IS A REMARK. 

When ' is used at the end of a Hne, it is using 
one more byte of memory than REM would. 
For example: 

10 A = B + C' A IS THE SUM. 

vs . 

10 A = B + C:REM A IS THE SUM. 

Note that the often-used combination of :' is 
redundant, as that would stand for ::REM (a 
waste of yet another byte). 

If you want optimum memory usage, and 
comments are a necessity, then avoid the short 
term benefits of ' and get long term benefits by 
typing out REM. 

Stephen Milliken 
Randolph, MA 



Radio Shack's TRS-80 
Pocket Computer 

For Businessmen, Engineers, Scientists, 
Educatorsl 

Library of prerecorded programs available. Memory retains programs 

even with power off. Typewriter-format keyboard, 24-Gharacter LCD. 

15 arithmetic functions, 10 digit accuracy. One of the most 

remarkable technological achievements of the decade! The TRS-80 

Pocket Computer actually has most of the features of the 

famous Level I TRS-80 microcomputer in a pocketable 6 oz., 

2 3/4x6 7/8 X 11/16" size. You can program it in BASIC or 

use the growing library of prerecorded programs for 

Business Statistics, Business Finance, Real Estate, 

Civil Engineering, Personal Finance, and Aviation. 

There's even an educational Math Drill and Games 

Pack for fun. Programs and data are retained 

even with power off. Case, long-life (300 

hours) batteries included. Cassette interface 

included, connects Pocket Computer to 

cassette recorder for loading prerecorded 

software, storing and saving programs. 

Batteries extra. With cable. 26-3501 -f 



$259.^ 
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COMPUTER 

SCIENCE 

PRESS 



THE NATURE OF COMPUTATION: 
AN INTRODUCTION TO COMPUTER SCIENCE 

Ira Pohl and Alan Shaw 

An exciting new book covering the events in chess playing computer 
programs since 1975. It includes a description of the microcomputer 
revolution, its impact on computer chess, and a complete description of the 
challenge match between David Levy and Chess 4.5, the world champion 
program. $16.95 

PASCAL: AN INTRODUCTION TO 
METHODICAL PROGRAMMING 

William Findlay and David Watt 

This book, intended for use in a first course in programming, is based on the 
Pascal language. It assumes no prior knowledge of computing and only 
elementary mathematics. Emphasizing programming principles, good style, 
and a methodical approach to program development, it is an excellent 
introduction to Pascal. $12.95 

STRUCTURED BASIC AND BEYOND 

Wayne Amsbury 

An outstanding teaching and self-educational book on the BASIC language, 
emphasizing structured programming principles. Details of the language are 
presented in an easily understood manner oriented toward interactive 
terminal use. $10.95 

CHESS AND COMPUTERS 

David Levy 

This is the first really comprehensive book on computer chess. It contains a 
history of computer chess, describes early chess playing machines, how 
computers play chess, and an account of early Soviet attempts at chess 
programming, plus a record of computer chess tournaments. Paper, $9.95 



MORE CHESS AND COMPUTERS: 

THE MICROCOMPUTER REVOLUTION 

THE CHALLENGE MATCH 

David Levy and Monroe Newborn 

An excellent new text which deals with the core concepts of computer science. 
It addresses three major objectives; a survey of the field; an initial literacy in 
the language and methods of computer science; and a historical, 
philosophical, and social perspective. $12.95 



All prices are subject to change without notice. Handling and postage charge of SI. 25 per book. 
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CONVOY 



by William Morris and John Cope 

"Convoy" is written in Atari 
BASIC and requires 24K of RAM 
and joysticks. 

Atari "Convoy" is a translation 
of the "Convoy" that appeared in 
the January issue of SoftSide, and 
there you will find a more detailed 
description of the game than the 
one below. The game plays much 
the same as the other versions. 

"Convoy" can be divided into 
seven major sections: 

INITIALIZATION 

This is the entry of personal 
data concerning the player. If this 
is not the player's first game, 
additional information is read 
from cassette. 

CONVOY CONSTRUCTION 
Allows the player to select the 
content of the convoy, with a 
maximum of 15 vessels. Certain 
cargos, such as fuel and 
ammunition, carry a high risk 
content and are more easily 
destroyed. These cargos may be 
ignored during initial games, but 
these requirements must be 
satisfied to permit successful 
completion of the simulation. To 
specify a cargo, type the first two 
letters of the cargo. 

BEGINNING THE CONVOY 

A player enters the position of 
each ship within the convoy. The 
computer evaluates the setup, and 
assigns experience points 
accordingly. Ships placed first are 
easiest to protect and so the most 
valuable cargos should be entered 
early. 

MAP AND MOVEMENT PHASE 

A map of the North Sea area is 
drawn, and the convoy's position 
is shown. The player is asked to 
choose a destination port. 
Murmansk is closer and is the 
prime goal, but Archangel will 
bring more chances to earn 
experience through combat. 

Using the joystick, the player 
moves the convoy. Normally three 
moves are permitted each day. 
After this movement, an on-screen 
submarine search is made, and if 
no contact is made, a Luftwaffe 
air search takes place. Contact 
with either of these forces puts the 
player into a combat situation. If 
no contact occurs, the player has 
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the opportunity to conduct air/sea 
drills or reorganize the convoy. 

SUBMARINE CONTACT 

Initially, surface contact is made 
with a graphic display modelled 
after the radar screens of World 
War II. The player, represented by 
a solid dot, must move to intercept 
the submarine within a certain time 
period or the submarine will be 
able to fire a torpedo at the 
convoy. 

Upon interception, the 
submarine dives, which requires 
the player to interpret an animated 
and sometimes inaccurate sonar 
screen to determine the depth of 
the U-boat. Once the player has 
determined the depth charge 
setting using the joystick, and 
pressed the fire button on the 
joystick to release the charge, the 
underwater explosion is shown. 
Failure to sink the submarine 
allows it to again fire a torpedo at 
the convoy. 

AIR CONTACT PHASE 

A plane flies across the screen, 
and the player must use the 
joystick to center a sight on the 
plane in order to down it. To fire, 
press the fire button on the 
joystick. Should the plane 
penetrate the defenses, bombs will 
be dropped on the convoy. Ships 
with high-risk cargos such as fuel 
and ammunition can absorb only 
one hit, while others may absorb 
more. If any ship is struck, the 
player must decide if the convoy 
will be slowed down for repairs 
or, if the damaged ship will be left 
alone where its survival is 
doubtful. 

TERMINATION 

Should you reach your 
destination, a final summary 
evaluation is made. Point status 
will determine the commander's 
promotion or demotion. At the 
same time, an updated requirement 
list for the Eastern Front is shown. 
Should the player choose, all of 
the important information will be 
saved onto cassette for use at a 
later time as part of a more 
involved scenario. 
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DOCUMENTATION 

Lines 0-40: Initialization and 
Title Display — Dimensions all 
strings and opens the keyboard. 

Lines 100-190: Data statements 
for graphic map display or graphic 
string — For the Atari version the 
variable J$ is used for graphic 
strings. Note the inclusion of 
cursor control characters within 
this version. 

Lines 200-400: Player Input — 
If this is the initial game, the string 
Al$ assigns a first-time player the 
rank of Lieutenant while setting 
the variables K, S, TS,YE and MM 
to their starting values. If this is 
not the first voyage, routines are 
called to input data from tape in 
lines 210-230. Line 330 checks to 
see if data entered from either the 
keyboard or data file is correct. 

Lines 340-510: Constructing the 
convoy — The variables R(l) 
through R(8) contain the 
"requirements" for the Eastern 
front. These are set to a maximum 
value in line 340 if this is the first 
game. The variable L(M) keeps 
track of the number of ships in the 
convoy with each vessel being part 
of the string BBS. Line 510 
initiates the first point evaluation. 
Note the difference in how the lack 
of string dimensioning capability in 
the Atari BASIC affects the 
program format with the use of 
BB$. The last line has LI assume 
the size of the convoy, L2 assumes 
the size of the convoy while K is 
calculated on the basis of the 
construction process. 

Lines 700-900: Designing the 
Convoy — Using the portion of 
the data statements alluded to 
somewhat earlier, a loop of 
variable length (z) outlines the 
physical shape of the convoy. Line 
720 sets the limit on the data 
statements to be read for each 
vessel's position on the screen. 
Line 750 checks for an illegal 
entry. Line 780 automatically 



places each escort vessel into its 
location. Lines 800-810 allow for 
alteration of data entry. This 
section concludes within algorithm 
to calculate once again, your K 
points in line 800. Lines 830-840 
place any damaged vessel at the 
last place in the convoy. 

Lines 900-1250: Map Phase — 
Line 900 sets the Atari's attract 
memory location to to prevent 
alteration in the screen colors. The 
lines between 910 and 920 are 
required to deal with alterations in 
the variables SP that can occur 
later in the program. The Atari 
uses the same method to "draw" 
the European theater in line 950 
employed by the Apple. The 
drawing continues until a value of 
less than is read (line 940). The 
variable S determines in turn the 
season (E$) and Z the length of the 
ice flows across the top of the 
screen. The variable S in line 1000 
can be a floating point value. 
Setting it to an integer value was 
necessary in view of the Atari's 
tendency to do unusual things such 
as rounding up to the higher value 
in the "ice flows" across the top 
of the screen. Only the background 
color returns a value of in line 
1050 thus avoiding a plot over any 
land areas. PI and P2 determine 
the position of the convoy on the 
screen for each cycle. 

Lines 1100-1400: Movement 
Phase — Line 1110 uses P2 as a 
flag to ship to hne 1300 if this is 
not Day 1. Line 1170 — if the 
keyboard buffer is empty the loop 
continues. Line 1190 sets the 
screen position of your destination 
(XA,YA) based on the value 
returned from the keyboard. Line 
1330 branches to 2060 for joystick 
entry for movement. If the screen 
position of the convoy and 
destination port are identical, the 
program jumps to 3000. Line 1360 
guards against "wrap 
around"screen movement. Line 
1370 continues the loop if the 
counter P is less than the number 
of permitted moves. SP controls 
the number of moves per day. 
With the Atari it is set at 3 because 
of the use of the joystick for 
diagonal moves. 

Lines 1550-1600: Submarine 
Search — Z is used to randomly 
generate screen locations to be 
plotted. Before plotting, however, 
the Atari version checks that 
location for a value in order to 
permit the plot (line 1510). Notice 



how T is used as a flag to increase 
the possibility of contact in line 
1550. 

Lines 1600-1800: Air Search — S 
controls the number of air bases 
plotted with the screen position of 
your convoy also determining 
whether or not a particular "base" 
is plotted. Rl and R2 control the 
movement of the subsequent plots. 
As with the submarine search a 
plot at the convoy's position 
terminates the search with PR 
being set to zero indicating a 
combat situation. Line 1630 alters 
the search pattern locations if the 
horizontal screen position exceeds 
26. Line 1644 guards against a 
search over the ice flow (line 
1650). 

Lines 1800-2000: No Contact 
Phase — The flag PR is set to 
connote a drill situation when the 
program branches to the 
appropriate location. The value 
returned from the keyboard is 
reduced by 48 to permit the "on 
GOTO" procedure in 1830. 

Lines 2000-2399: Aircraft Run 

— XI, the left starting point of the 
aircraft JX$, is determined by your 
K points. The joystick values in 
hues 2050-2090 control the screen 
position of the gunsight JT$ in line 
2040. The subroutine is accessed 
by two other segments of the 
program (Map Movement and 
Radar Screen). Line 2050 checks to 
see if you have pressed the joystick 
button to initiate firing at line 
2130. Lines 2150-2160 print 
explosion if hit is made. 
Depending on the status of PR the 
remaining lines in this section 
adjust both the size of the convoy 
and its speed as well as your K 
points. The logic for this 
procedure is essentially the same as 
the other versions. 

Lines 2400-2630: Radar Screen 

— Lines 2400-2430 set the position 
of the enemy sub on the radar 
screen. Lines 2465-2470 print the 
sub (club) and your pursuit vessel 
(diamond) only after the bar (J6$) 
reaches their horizontal position. 
The pursuit method accesses the 
common joystick routine (2500). 
Lines 2580-2600 control movement 
of the sub on the screen. The 
pursuit procedure is similiar to the 
methodology used in hues 
1300-1400. Different algorithms at 
the end of this section attends to 
the size of variables — L2, SP and 
the array B$. 



Lines 2640-2830: Sonar Screen 

— V and W are set at this point in 
Hne 2640. They control the screen 
location of the graphic "sub" in 
the next section as well. 
FOR/NEXT loops are used to 
create the animated bar. Line 2690 
determines whether the guage will 
be printed as an aid in determining 
the sub's depth. Line 2795 and 
2890 check for joystick reading to 
alter depth setting (53) (lines 2920, 
2950). 

Lines 2970-2999: Depth Charge 
Launch — V and W determine the 
vertical and horizontal position of 
each graphic figure. The animated 
plot of the depth charge figure is 
preset except for the final vertical 
position. As with the other 
versions. Atari "Convoy" uses 
the ABS function to compare W 
and V to the final plot position, to 
determine if a "hit" has occurred. 

Lines 3000-3470: LI through L6 
are used to summarize player 
progress. Report Section — This 
section is accessed at the end of 
each "day" and the voyage. Line 
3027 is employed at the end of the 
simulation. Line 3400 increments 
the season variable S$. This allows 
for three voyages for each season. 
This line also changes if the year 
after the third voyage. Line 3405 

— End of simulation check. Lines 
3410-3430 — Algorithms to attend 
to updating Soviet requirements 
based on your performance. Lines 
3440-3470 — Save to Tape Section. 

Lines 4000-5000: Evaluation 
Algorithms — This section is the 
same as the others. 

Lines 6000-7000: End of game 
evaluation for promotion or 
demotion. 

Lines 7000-7030: Final 
Summation. 

Lines 8000-9000: Daily Log 
Entries — Once again the same 
algorithms are employed in 
earlier versions. 

Lines 30000-30030: Sound 
Routines. 

Lines 30200-30220: Delay 
Routines. 

Lines 170-190, and hne 2980 in 
Atari "Convoy" consist of graphic 
strings which cannot be printed on 
our printer, and are therefore 

continued on next page 
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represented by symbols in the 
listing. The symbols should be 
replaced by: 

Symbol Meaning 

b Space 

@ A reverse video space (full 
graphics block) 

d ESCAPE followed by SHIFT 
equal (looks like a down- 
arrow). 

1 ESCAPE followed by SHIFT 
plus (looks like a left-arrow). 

u ESCAPE followed by SHIFT 
minus (looks like an up- 
arrow). 

* An asterisk character.(*) 



Capital letters in these lines 
should be typed with the Control 
key to get special graphic 
characters. 

UnderUned characters in this 
listing should be typed in reverse 
video using the Atari logo key. 
The curled right bracket character 
that appears in some of the 
PRINT statements is a clear screen 
character, generated by typing 
ESCAPE followed by a SHIFT 
CLEAR. 

ON SPLITTING THE CONVOY 

"Convoy" has been structured 
in such a manner as to permit 
splitting it into two sections for 
machines with 16K of memory. 
The optimum point at which to 



perform the 'surgery' is just prior 
to line 900. Upon doing so, 
however, certain modifications will 
have to be made to both segments, 
(hereafter called Parts 1 and 11). 
We hope the following suggestions 
will aid in the process. 

1 . The data statements in lines 
105 tol35 are accessed in Part II. 
To allow this without any 
additional memory overhead try 
the following: 



LINE PROGRAM 

STATEMENTS 

890 ForX=l to37: ReadZ: 
Next X REM-Read through 
CONVOY design data 

891 For X= 1536 to 1689: Read 
Z: Poke X,Z: Next X 

This procedure permits the 
program to access page six of 
memory (which we are using as a 
storage area for the map data). To 
use this from Part II try the 
following: 

LINE STATEMENT 

940 For X= 1536 to 1689: Step 3: 
A = Peek X: B = Peek (X -I- 1): 
D = Peek(X-t-2): Next X 

You will of course, have to 
modify the Read statement 
accordingly, eliminating 930 and 



940 as outlined in the above 
example. This step allows the 
program to utilize almost IK of 
data without the equivalent 
memory charge. 

2 . Move the load from the tape 
section for subsequent "voyages" 
from Part II into Part I. This 
permits access to data files 
generated in Part II while opening 
up some additional memory in the 
latter area. Listen — everytime 
another byte bites the dust the 
happier you should be 

3. Delete option 3 — 
"reorganizing the CONVOY" 
from Part II as this accesses a key 
routine in Part I. (Line 1800-1830). 

4. If necessary, you might 
nodify the report section in Unes 
3000 to 3380, 6040 to 6075 and 
7000 to 7030 to merely state daily 
progress in point form. (eg. subs 
sunk — , points — etc.) 

5. Some sound and delay 
routines in lines 30000-30220 will 
have to be duplicated in Part 1. 
This is not a problem as you have 
more than sufficient space here. 

6. Should all of these operations 
still leave you short of memory 
(which if highly doubtful), you 
might consider placing all of the 
evaluations procedures used at the 
end of each voyage (lines 
4000-7000) as a third segment to be 
chained at the appropriate time. 

7. Be sure that you use the Atari 
chaining routine as outlined on 
pages 30-31 of the manual. Using 
this procedure,variables defined in 
Part I can be utilized in Part II. 



REM IK CONVOY im 

1 REM MI (C) J. Cape & Mm Horris iii 
10 GRAPHICS Z:P0KE 752,1:DIM A*(16),A1 
♦(21),A2$(21),A3$(21),B»(2),Be»(16),E( 
17),E$(6),L(9),R(8),RE(8) 

20 DIM JB$(10),X$(5),J[)$(38),JE$(2D), 
JFt(20),JG$(18),JH$(36),JK((36),il$(l8 
),jr$(17),JX»(3) 

30 FOR 1=1 TO 9:L(Z)=0:«XT Z:EiB*="FUA 
HTAPLORFOGRn":OPEN *2,1,0,"K:" 

10 POSITION 7,5:? ♦6;"Convoy":f(» z=o 
TO I'.SETCOLOR i,3,o:gosub 3oooo:setcol 
OR i,8,o:gosub 3oooo:NEn z 

100 DATA 2^,13,30, 13,2S,11»28,1S,22,13 
,31,13,2'»,ll,32,ll,2'»,15,32,15,28,9,2e 
,17,21,17,32,17,21,9,32,9,26,7,30,7,28 
105 DATA 0,0,6,1,0,6,2,0,1,3,0,1,1,0,3 
,5,0,3,6,0,3,7,0,1,8,0,0,3,10,12,1,10, 
12 

no DATA 5,11,11,6,11,12,7,17,19,8,16, 
19,9,18,19,10,19,19,16,0,1,17,0,0,19,1 
,1 



120 DATA 36,1,3,37,1,1,37,3,3,19,12,12 

,19,15,17,19,19,19,20,12,17,21,11,16 

125 DATA 22,10,19,23,9,19,21,7,19,25,5 

,17,26,5,16,27,5,11,28,6,11,29,6,11 

130 DATA 30,6,13,31,6,8,31,11,13,32,6, 

8,32,11,19,33,5,8,33,11,19,31,11,19,35 

,8 

135 DATA 19,36,7,19,37,5,19,38,5,19,39 

,5,19,30,16,19,28,18,18,-1,0,0 

160 DATA LIEUTENANT ,LIEUTEIWNT COttWN 
DER ,COM«ANDER ,CAPTAIN ,COHM0DORE ,Z 

170 JEt="0eeei?ee0M9eeei?eeeee":jF$="eb 

bbbbbbbbbhbbbbbbbe " ; X$="RRRRRRRRRRRRR 
RRRRR" 

180 x$="iMJU":jx$="euu":^:$="je8eHui 

iicr tju»- nnnntTriraTinrir«TinnfinrUTnnmnn 

mmwmvi" 



185 ,m="tm»»^99^m&mmi999wm9 

eeeee@@" : J}($="Kibbbbbbbbbbbbbbbbbbbbbb 

tibbbbbbbbbbe" 

190 JT$="OHEdlllASOdlllZXC":JL*="bbbbh 

bbbbbbbbbbbbb" 



200 a$="":au="lieutenant ":? amn?) 

'," Is this sour first vo^Bge? (Y/N) "! 
GOSUB 30010:GET *2,U:IF U=89 then 300 
210 ? ">In5ert data tape and press 'RE 
TURN'"JGET »2,UJ0PEN »1,1,0,"C:" 
220 INPUT *l,At:iNPUT ♦1,A1$:INPUT *1, 
KJFOR Z=l TO 8:iNPUT *l,Y:R(Z)=YtRE(Z) 

=R(Z):next z 

230 liffUT *l,S:iNPUT *1,YE:INF'IJT ♦1,N! 
INPUT ♦1,TS:CL0SE ♦1;P0H 761,255 
300 GRtf'HICS 0:POKE 752,1:SETC0L0R 2,9 

,o;? chr$(29);" prhish admiralty - ar 

PTIC COHHAND -IGOSl^ 3fl010:iF K:>0 THEN 
320 

310 ? Cl«i(29);CH<*(29)5"Hh3t is your 

n3«e";:iNPUT M'.TF M="" TVBi A*="HORN 

BLOHER" 

320 ? :? :? MUM',"',"'.? " Your expe 

rierice points are "JKJ? "and yoLi are t 

aking out CONWY »";TS+1;"." 

330 ? CHR$(29);"IS THIS CORRECT (Y/N)? 

":get »2,u:f u=78 then K=o:s=fl:TS=o:Y 
e=i91i:n=o:goto soo 



36 



SoftSide, April 1981 




310 IF K=0 THEN FOR Z=l TO 8JR(Z)=INT( 

RND(0)!«199)+800!fOT Z 

100 SETCOLOR 2,13,0:FOR' Z=1 TO 8:R€(Z) 

=R(Z):next z 

105 ? CHR$(125)JCtt»(29);" ^ 

ieramoN_PHASE":? :? "Russian reoiir 

DENTS" :GOSUEi .110 :G0T0 130 



110 ? ;? "Fuel "JREd)}" "!? "Aww 
";RE(2);" ":? "Tariks "IREO)}" 

";? "Planes "JREd)}" " 
120 ? "Ore ";RE(5);" "t? "Food 

";RE(6);" ":? "Grain "JRE(7);" "! 
? "Tinber ";RE(8);" ":RETURN 
130 ? CHR*(29);CH^*(29);"NlBeER OF SHI 
PS IN YOUR CONVOY IS ";l:? "(Enter t 
end.)"JIF L=15 THEN 190 



HO ? cw,'»(29);"SHP # ";l+i;" cargo " 

niNFUT B*;iF E:t="e" AND L>fl THEN 190 
112 IF LEN(E$)<2 THEN GOTO 116 

111 M=o:Gosue i5o:if re(M)oo and moo 

THEN GOSUB 30020:GOTO 170 
Hi GOSUB 30030 :G0T0 105 

150 IF m::ii then m=o:return 

155 M=H+2:iF B»=E:B$(M-1,M) THEN «=«/2J 

RETURN 

160 GOTO 150 

170 L(M)=L(h)+i;RE(M)=RE(M)-10;iF RE(M 

)<0 TJ€N RE(M)=0 



180 L=L+1:G0T0 105 

190 POSITION 2,15!? " Your COWOY is 

now ready to sail.",:L(9)=l+INT(K/10fl0 

0):iF L(9):>1 THEN L(9)=1 

500 ? !? " You are being escorted by 

";L(9):? "destroyer (s)."!? ,," G00D LUC 

K":G0SUB 30010!GOSUB 30210 

510 L1=L;L2=L(9):K=K+L1)H0+L2x20:SF-3 

700 GRAPHICS OtSETCXOR 2,7,0JPRINT CH 

Rt(29);" DESIGNING THE CONWY "! 

? CHR»(29);CW<*(29)!"CARG0 VESSELS" 



701 FOR Z=l TO 8:RE(Z)=L(Z)!NEXT Z 
718 RESTORE rGOSlB 110!? "Escorts ";L( 
9) 

720 POKE 752,1!F0R Z=l TO L+L(9):REA0 

x,y:position x,y:? chri(8)!chh(io);:g 

OSUe 30020 !NEXT Z 

721 restore IFOR Z=l TO LIREAD X,Y 
730 POSITION X,Y!? CHR$(8);C**(10)}:G 
OSUe 30020 IPOSITION X,Y!? CH<*(136);CH 
R*(138);:G0SUE: 30020 

710 POSITION 2,20!? "HHICH VESSEL" ;!IN 



PUT b$:position 2,201? " 

"!t*=0!GOSlB 150 
750 IF H=0 OR RE(M)=0 TfCN GOaJB 30030 
!GOTO 730 

760 RE(H)=RE(M)-1!P0SITI0N X,Y!? B$;!P 
OSniON 2,5:G0SUB IIO!? "Escorts ";L(9 

)!B(Z)=«:next z 

780 FOR Z=l TO L(9):READ X,Y!P0SITI0N 
X,Y!? "E^"!GOSUB 30020:hEXT ZiFIKITION 
10,11!? "0" 



790 POSniON 1,20!? "Is this the prope 

r configuration (Y/N)?";!GET *2,U!IF U 

=78 TtCN 700 

800 GOSUB 30010 !FOR Z=l TO L!K=K+R(B(Z 

))/10flOflx(9-e(Z))x(15-Z)!NEXT Z 

810 IF T=0 THEN POSITION 2,22!? "Your 

experience points are no« "JINT(K)IGOS 

UE; 30200 

820 IF RR=0 THEN 890 

830 FOR Z=l TO L!IF B(Z)=RR THEN B(Z)= 

B(L)!E(L)=RR!Z=15 



810 NEXT Z 

390 IF S=0 THEN S=1!YE=1911 

900 POKE 77,0!T=T+1!GOSUB SOOOIRESTORE 

910 IF SF'=2 AND RNO(0)<0.5 THEN SP=3!? 

"JDanaged vessel has been repaired."! 
? "ResuHing norfial speed" !GOSUe 30210 
920 GRAPHICS 3!SETC0L0R 0,12,0!SETCOLO 
R 1,0,8!SETCOLOR 2, 3,0! SETCOLOR 1,7,2! 
COLOR 1!PR=0!IF SP=1 THEN SP=2 
930 I^STORE !FOR X=l TO 37!READ Z!NEXT 

X 



910 READ A,B,D!ff A<0 T^£N 1000 
950 PLOT A,B!DRAWTO A,D!GOTO 910 
1000 ON INKS) GOTO 1010,1020,1030,101 


1010 E$="FALL"!Z=2!G0T0 1050 
1020 E»="WINTER"!Z=31GOT0 1050 
1030 E»="SPRING"!Z=2:G0T0 1050 
1010 E$="SU«HER"!Z=1 
1050 COLOR 2!F0R Z1=0 TO Z!FOR Z2=0 TO 
39!La:ATE Z2,Z1,X!IF X=0 THEN PLOT Z2 
,Z1 



1060 NEXT ZZINEXT Zl 

1100 POKE 752,liCaOR 3!IF P2=0 TtO G 

=2!H=18!PL0T G,H 

1110 ? "r!POKE 657,10!? E*}" OF ";ye; 

" DAY ";T!F P2=1 THEN 1300 

1130 ? CHR$(29):" Yoi.ir convoy is west 

of Britain" !P2=1 



1110 FOR Z=l TO 5!G0SUB 30000!COLOR 0! 
PLOT G,H!GOSie 30220:COLOR 3!F10T G.H! 
NEXT Z 

1150 POKE 656,2!? "Is your destination 
ARCW^IGEL (A)? "!Ca.OR 2!PL0T 35,8:G 
OSUB 30020:GOSUB 30210!COLOR 1 



1160 PLOT 35,8!P0KE 656,2!P0KE 657,21! 

? " OR MURMANSK (H) ?"!CQLOR 2!PL0T 31, 

6!G0SUB 30020 

1170 GOSUB 30210!COLOR 1!PL0T 31,6!IF 

PEB((761)=255 THEN 1150 

1190 U=PEE}«761)!XA=31!YA=6!IF U037 T 

HEN XA=35!YA=8 

1300 FOR Z=l TO 3!C0L0R liFlOT XA,YA!G 

OSUE: 30020!COLOR 2!PL0T XA,YA!GOSUB 30 



220!>tXT Z!P=0 

1310 POKE 656,2!? " Use JOYSTICK to re 
position Convoy "iCOLOR 3!PL0T G,H 
1330 X1=G!Z1=H:G0SUB 2060!IF X1=XA W© 

Z1=YA TtCN 3000 

1350 LOCATE X1,Z1,Z!IF ZOO THEN 1370 
1360 COLOR 0!PLOT G,H!IF XK39 AND Xl> 
AND Zl<20 THEN P=ptl!G=Xl!H=Zl!GOSUB 

30010 

1370 COLOR SIPLOT G,H!IF P<SF' THEN 133 




1500 P=0!? ">"!CHRt(29)!" >fe^n SUBMARIN 
E SEARCH" !GOSie! 30000!FOR X=l TO 20!Z= 
INT(5+(3lxRf«)(l) ) )!Y=INT(19iRN0(l) ) 
1510 LOCATE Z,Y,Z1!IF ZIOO THEN 1530 
1520 COLOR 2:PL0T Z,Y!GOaje 30020!GOSU 
B 30220:COLOR 0!PLOT Z,Y!GOTO 1530 
1525 F Z=G AND Y=H THEN GOSUE; 30000 !C 
OLOR 2!F10T Z,Y!GOSUE; 30000!COLOR 0!F1 
OT Z,Y 



1526 IF X<21 THEN X=20!NEXT X 

1528 PA=1!PR=0!GOTO 2100 

1530 NEXT X 

1510 IF PA=1 THEN PA=0!IF INT(R'N0(l)x2 

)=0 TtEN Z=G:Y=H!G0T0 1525 

1550 IF INT(RND(0)x2)=0 AND (T=1 OR T= 

5) THEN Z=G!Y=H:G0T0 1525 

1600 ? CHR$(125)}CHRtC29);"LUnWAFFE A 

IR SEARCH"!ON INKS) GOTO 1601,1606,16 

01,1602 



1602 Y=23:Z=13:G0SUB 1620!Y=21:Z=11!GO 

SIB 1620 

1601 Y=28!Z=7!G0SUB 1620 

1606 Y=29!Z=6!G0SUB 1620!Y=27!Z=6!GOSU 

B 1620!Y=23!Z=9!GOSUB 16Z0!Y=22!Z=15!G 

OSIB 1620!Y=Z0:Z=17!GOSUB 1620 

1610 GOTO 1800 

1620 IF H>Z THEN RETURN 

1625 COLOR 2!PL0T Y,Z!FOR N=l TO 16!R1 

=INT(RM)(0)x2)!R2=INKRND(0)x2) 

1630 Y=Y-Ri:Z=Z-R2!IF G>26 THEN Y=Y+R1 
x2 

1610 IF Y>38 THEN Y=38 
1612 IF Z<0 THEN Z=0 

1611 LOCATE Y,Z,Z2!Z3=0!F Z2O0 THEN 
Z3=l 

1616 IF Z2=2 THEN 1680 

continued on next page 
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1650 GOSUEi 30030JCCLOR ZtPLOT Y,ZJIF Y 
=G AND Z=H THEN PR=fl;FA=i:W=16!NEXT W! 
GOTO 2000 

1660 GOSUE 3022fl:COLOR Z3!PL0T Y,Z 
1680 NEXT WJRETURN 

1800 ? "in, Air Defence Drill 3. Regro 
up CoTivoy",*;? "2, SubMaririe Drill 4, 
Contirii.ie" 

1810 PR=i;PRINT "ORDERS? "; 
1820 GET ♦2,U:U=U-48:iF U<1 OR U)'^ THE 
N 1820 



1830 ON U GOTO 2000,2100,700,900 

2000 GRAPHICS OtSETCOLOR 2,3,0:POt£ 75 

2,i:Ft)SITI0N ll,li;iF PR TJ£N ? "AIR A 

TTACK DRILL ".'GOTO 2020 

2010 ? " COhBAT STATIONS I" 

2020 GOSUB 30000!Z=INT(23XRND(0)+1);X= 

INT(K/1500):GRAF'HICS OISETCOLOR 1,0,15 

:setcolor 2,7,2tif x>20 then x=20 
2025 xi=i7;zi=ii:y=x+3 

2030 ? ":i";pOI-(E 752,1:IF X>36 THEN 220 




2040 position xi, zl!? jt$!position x,z 
:? jx$;;gosue; 205o;goto 2092 
2050 if strig(0)=0 then 2130 
2060 if stick(0)>1 and (stick(0)<8) th 

EN X1=X1+1 

2070 IF STICK(0)>8 AND (STICK(0)<12) T 

He4 X1=X1-1 

2080 IF STICK(0)=6 OR STICK(0)=14 OR S 

TICK(0)=10 THEN Z1=Z1-1 

2090 IF STICK(0)=5 OR SnCK(0)=9 OR ST 

ICK(0)=13 THEN Z1=Z1+1 



2091 RETURN 

2092 IF ZKl THEN Zl=l 
2094 F Zl>18 THEN Zl=18 
2096 IF Xia THEN Xl=l 
2098 IF XIJ^I THEN Xl=34 

2100 IF XJ=3 THEN XJ=0;GOTO 2030 
2105 XJ=XJ+ltX=X+l!R=INT(Rf«)(0))i(4-2)!Z 
=Z+R:IF Z<1 THEN Z=l 
2110 IF Z>23 THEN Z=23 
2120 GOTO 2030 



2130 FOR ZK=1 TO 2!P0SITI0N Xl,Zi;? CH 

r$(29);"xi«";:gosue! 30030:101 zk 

2135 F XOXl ffi; ZOZl+1 THEN 2050 

2150 for zk=1 to 3:p0siti0n xl.zk? ch 
R'$(29);" * ";:gosie 30020 

2160 POSniON Xl,Zi:? CHR'$(29);"x r'i', 
GOSlf: 30020:NEXT ZK:? J? J? JGOTO 2392 
2200 SETCOLOR 2,3,0:IF PR THEN ? "^ 
Attack Drill was wajccessf ul I " ;K=K-7 ; 
GOTO 900 



2250 POKE 84,20;? "BOMBERS \WE PDETR 
ATED YOUR DEFENSES !"!GOSUE 30210 
2260 ? " BoMbs are being dropped on jou 
r convoy " ;G0SUB 30210:R=L:F SP03 THE 
N 2290 

2280 R=INT(LiRND(0)+l):B(Ltl)=B(R) 
2285 FOR Z=R TO L+1!B(Z)=B(Z+1)JNEXT Z 
2290 RR=e(L){IF INT(WNO(0))=Z OR SP< 
3 OR B(L)<3 THEN 2380 



2295 ? "SHP * "JRJ" HAS BEEN DAMAGED" 
!K4(-15!L4=L4+1 

2297 POKE 764,255!? "Winjou_Pedce_5 
peed for repairs ?" !GET #2,U:F U=89 TH 
EN SP=1!G0T0 90(1 

2300 L(B(R))=L(B(R))-l!L=L-i:iF INK2X 
RND(0))Ol THEN 2310 
2305 ? " The dawaged vessel retLTned tq 
England" !L3=L3+1!GQT0 900 
2310 F INT(2)i(RhD(0))=l THEN K=K-30!L3 
=L3+1:L4=L4-1;? " Vessel sinks en route 
"!GOTO 900 



2320 K=K+20!? "The dawaged vessel will 

arrive " 

2380 K=K-80iPR=0:L(RR)=L(RR)-i:L3=L3+l 
:IF SP<3 THEN SP=3 

2385 ? "SHIP * "JRI" HAS BEEN SIM(":L= 
L-1:G0T0 900 
2392 SETCOLOR 2,ll,2:iF PR THEN ? "Air 

Attack Drill was sijccessful l"!K=K+20! 
GOTO 900 
2395 ? "Aircraft was shot down l"!K=K-H 

oo;l6=l6+i:gosi)E! 30220 

2397 LL=LL-liIF LL<1 TJCN R=INT(2«R^5)( 

0)):f r=i then 900 

2398 R=INT(2xRM)(l));iF R=l THEN 2020 



2400 XZ=0!LM=L(9)!GRAPHICS OJSETCOLOR 

2,3,o;poKE 752,i:f'Osition 8,io:zi=9:xi 
=i9:f pr=o then 2410 

2405 F'RINT " SUE:hftRINE PURSUH DRILL" !P 

OSniON 10,12!? " Radar Search Phase " !G 

OSIB 30210 

2410 F PR=0 THEN ? " COMBAT STATIONS 

l"!GOSUE 30000!GOSUB 30000 

2420 XS=INT(RND(fl)i20)!IF XS<5 OR XS>1 

3 THEN 2420 

2430 YS=INT(RM)(0)x20)!IF YS<12 OR YS> 

28 THEN 2430 



2440 SETCOLCK 2,13,0!? "]"!POSniON 10 
,2!? ^itFm ZK=3 TO 15!P0SITI0N 10, ZJ; 
!? JFt!NEXT ZK!POSITION 10,16!? JEi 
2450 POSITION 14,20!? " RADAR PHASE" !? 
!? " Use Joystick, to pursue ene>yj vess 
el"! 

2460 FM? ZZ=4 TO 14!F'0SITI0N 11,ZZ:? J 
G$!G0SUEi 30020!F1]SITION 11,ZZ!? JL» 
2465 F ZZ=Z1 THEN POSHION X1,Z1!? CH 
R$(96); 



2470 F ZZ=XS THEN POSHION YS,XS!? CH 

R*(16); 

2480 NEXT ZZ 

2490 F STICK(0)=15 THEN 2490 

2492 XZ=XZ+1!F XZ=8 AND PR=0 THEN ? " 

::":GOTO 2989 

2494 IF XZ=8 THEN XZ=0!F'OSITION 7,20!? 

"Drill was Lrisuccessful " ! !K=K-25:GOTO 

900 



2500 GOaJB 2060 

2510 F ZK4 THEN Zl=4 

2520 F Zi:>14 THEN Zl=14 

2530 F XKll THEN Xl=ll 

2540 IF Xl>29 THEN Xl=29 

2560 F XSOZl OR YSOXl THEN 2580 

2570 FOR ZK=3 TO 15!P0SITI0N 10,ZK!? J 

Ft:^EXT ZK!GOSUB 30030 !F'OSITION YS,XS! 

? ciff;i(96); 



2575 GOSUe 3flfl3fl:P0SITI0N YS,XS!POSin 
ON YX,XS:? CHR$(16);!G0T0 2640 
2580 R=INT(RND(0)«>!F R=l THEN 2600 
2585 R=INT(RND(0)x3-l)!XS=XS+R!F XS<4 
THEN XS=4 

2590 F XS>13 THEN XS=13 
2600 R=INT(RND(0)i3)!YS=YS+ft!IF YS<12 
THEN YS=1Z 

2610 F YS>28 THEN YS=28 
2620 F XS=Z1 AND YS=X1 THEN 2570 



2630 GOTO 2460 

2640 V=INT(RND(0))H8)!SS=6!H=INT(RND(0 
)I9)!YY=V+10-W 

2680 ? ">"!POSniON 2,12!? MtFOR 1=1 
TO 4!? JK$!iCXT Z!? JH$ 
2690 F K>llflO0 AND INT(RND(0)x6)=4 TH 
EN POSITION 17,7!? " GUAGE H<1FUNCTI0NI 
"iPOSITION 14,20 !GOTO 2720 
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2700 FOR Z=3 TO 36:P0SITI0N I,U',7 CHR 

$(21);. '(EXT z:position H,20 

2720 ? " SONAR REFt}RT "!? "Press BUnON 
to launch depth charge"?? "JOYSHCK 3l 
ters depth SETTING! 10"; 
2730 FOR YM=YY TO V+1 STEF" -1;ZW=1:F0R 
ZZ=Z« TO (ZW+YM);POSinON ZZ,H!? Cfff; 

«(160); 

2750 NEXT ZZtGOSUB 30020 :G0SUB 30220 
2790 IF STRIG(0)=0 THEN YM=V:ZJ=1;GOTO 
2820 

2795 IF SnCK( 0)015 Tt£N GOSIB 2920 

2800 for zs=zw to (zh+yh); position zs, 
h:? " ";:next zs:h=«+i;f w>28 iveh w 

=28 

2820 fCXT YMtIF ZJ THEN ZJ=0:GOTO 2970 

2330 FOR Y=V+1 TO 30:Q=Y!FOR W=0 TO Q 

:zz=zm+w:position zz,h;? chr*(160);! 

NEXT W 

2810 GOSUB 30020!GOSUE; 30220 

2880 FOR XX=ZH TO (ZW+Q): POSITION XX, I 

i:? " ";:next xxiiF strig(0)=o then y= 
36:zj=i;goto 2910 

2890 if STICK(0)<>15 THEN GOSUB 2920 

2900 w4i+i:f h;>28 then W=28 

2910 NEXT Y:ZJ=0:GOTO 2970 
2920 IF STICK<0)=11 THEN SS=SS-1 
2930 ff SnCK(0)=13 THEN SS=SS+1 
2910 ff SS>21 THEN SS=21 
2950 F SS<5 THEN SS=5 

2960 posinoN 31,22:? " ";:posinoN 
31,22:? ss-5;"0";:iF stick(0)oi5 tjcn 

GOSUB 30220 :GOTO 2920 

2965 return 

2970 GRAPHICS 0:POKE 752,1:SETC0L«? 2, 

7,2:posniON 0,5:? x$:posinoN 5,1:? 
jb$:v=v+5:position h,v:? x% 

2971 a=9:b=3:gosu8 2975:a=io:b=2:gosub 
2975:a=ii:b=i:gosue: 2975:for z«=b to 

b+(ss-2):b=z>i:gosub 2975 

2972 (EXT ZI1:GOTO 2977 

2975 position a,b:print chr*<20);;gosu 
B 30220 :posniON a,b:? " ";;F'OsniON a 

,5:? CHR*(13);!RETURN 



2977 IF H>7 AND H<15 AND (ABS(V-SS)=0 
{Si (ABS(V-SS)=1 AND K<10001)) THEN 298 


2979 POSITION 25,10:? " ft hISSI ":NH=l 

2980 FOR ZP=1 TO 5:P0SrTI0N io,ss:? "u 
]ft*llllb«hdlll!«bx":G(HC 30020:POSITIO 
N 10, SS:? "utixbdlllxbidlllbxh" 

2981 GOSUB 30020 :NEXT ZP;F PR=0 AND N 
H=l TfEN NM=0:GOTO 2989 

2986 F PR AND NM THEN Ni1=0:K=K-25:PRI 
NT " PRACnCE WAS l»ISUCESSFUL "!GOTO 900 

2987 POSniON 3,10:? "AJiIT!":K=K+1fl!I 
F F1?=0 THOJ K=K+160:L5=L5+1 

29ffl GOTO 900 



2989 POSniON 20, lO:? " TORPEDO LAUNCHE 

_o!":gosub 3021o:k=k-3o:rr=o:r=l 

2990 L(B(R))=L(B(R))-1:L3=L3+1:? "SHP 

* ";l;" has been sw»<":? :gosub 30220 

2991 L=i-i;G0SU8 30020:iF L=0 THEN 300 


2992 F SP<3 THEN L1=L1-i:SP=3 

2993 B(L+l)=0;iF XZ=8 THEN XZ=fl:G0T0 2 
HO 

2991 LJHJi-i:iF L«=0 THEN 2998 

2995 ? "DO YOU WANT ANOTHER Rl*l (Y/N)? 

":get *2,u:f u=89 then 2610 



2998 F INT(RM)(0)X3)=1 TJ€N ? "ANOTHE 
R SUE*WRINE IS APF'R0ACHING":G0SUB 3021 

o:goto 2100 

2999 GOTO 900 

3000 GRAPHICS 0:SETCOLOR 2,9,0:? " ARCT 

ic CONVOY commi headquarter'S " 

3010 GOSUB iooo:z=i+k/ioooo:f z>5 the 

N Z=5 

3020 F A1$0A2* THEN 6000 
3027 A2$=""!IF (G=XA AND H=YA) OR L=0 
THEN ? :? " VobB^e Terniration File" 
3030 ? :? "LOG SUMMARY FOR:":? Al*;" " 
;A$?:G(BUB 3310!GOTO 3380 
3310 ? :? :? "Your initial convoy stre 
ngth was ";l1:? "and you were escorted 
by ";L2 

3315 ? "destroyer(5).":? "Of these shi 
Ps you lost ";L3;" and had ";L1:? "dan 
aged." 



3350 ? :? "Dtiring your voyage you sank. 
";L5:? "suh«aririe(s) and downed ";L6; 
" Plane(s)" 
3360 F K<0 THEN K=0 
3370 ? !? "Your experience points are 

now ";int(K);".":return 

3380 POKE 761,255:? C«»( 29); "PRESS ^ 

i\m TO CONTINUE" :get #2,0 

310irS=S+0.3i:iF S>3 THEN YE=1912:iF S 

>5 THEN S=5 

3105 TS=TSti:F TS+1=18 T1€N ? ">":? : 

? :gosub iio:goto 7000 



3110 ? :? :? ">":for z=i to 8:r(Z)=r(z 

)+INT(50)iRND(0)+l) 

3115 F R(Z):>999 THEN R(Z)=999 

3120 f£(Z)=R(Z);NEXT z:gosub iio:x=o 

3125 FOR Z=l TO 8:iF R-E(Z)>999-TSxl0 T 

HEN X=X+1 

3130 fCXT Z:iF X.>2 THEN N=i:? :? " MU 

RMANSK HAS FALLEN DUE TO SUPPLY";? "SH 

ORTAGE" 

3110 ? :? "Do you want to save yoijr ga 

He to tape?":GET #2,U:F U=78 THEN END 

3150 ? "IHnsert data tape and press 'R 

eturn'":get ♦2,u:ofen *i,8,o,"c:" 



3160 PRINT *i;a$:print #i;ai$:print »i 
,k:for z=i to 8:y=r(Z):print »i,y:next 
z 

3170 print *i,s:print ♦i,ye:pr'Int #i,n 
:print *i,ts:close *i;eno 
1000 f t<10 then t=zo 

1010 K=K-(T-lfl)i250;iF N=l THEN K=K+50 



1020 FOR Z=l TO 8:K=K+R(Z)/(999-TSx50) 

IL(Z)X100 

1025 R(Z)=R(Z)-10xL(Z):F R(Z)<0 T}£N 

R(Z)=0 

1030 K=K-R(Z)/iflo^2:NEXT z:k=int(K):f 

K<1 THEN K=l 
1010 RETIKN 

6000 RESTORE :for x=i TO mtfiENi q:ne 
XT x:for x=i to z:read A2«:NEn x;f z 

=5 THEN 6030 

6010 FOR X=Z+1 TO 5:READ A3«:F A3$=A1 

$ THEN X=5:GOTO 6060 

6020 NEXT X 

6030 F Ali=A2* TfCN 3027 

6010 ? :? ;? "Congratulatiore!":? I? " 

you have been promoted to" 
6050 POKE 85,5:PRINT A2»:A1*=A2$;G0SIB 

30200:POKE 85,0!GOTO 3027 
6060 F K>ZilOOflO-2000 T»CN 3027 
6070 ? !? :? "BAD NEWS!":? !? "Because 

of yoi.ir poor showing you" 
6075 ? "have been denoted to the rarJ<. 

of":? a2»:ai$=A2$:gosub 3020o:goto 302 

7 

7000 ? CHR$(29)!" PRESS 'RETURN' TO CON 

TINUE"!GET *2,U 

7010 ? ">CONGRATULAnONS! You have con 

pleted":? "the sinulation?" 



7015 ? :? "YoLi began the gane as a Lie 
utenant":? "and you have now attained 
the rank of":? Al»;"." 
7030 ? "You have accuiulated ";k;" vie 

tory":? "points.";? ;? ;end 

8000 F T=l THEN RETURN 

8002 F U<:>1 THEN GOSUB 30200 

8003 F L=fl WEH 3000 

8001 U=fl;GRAPHICS 0:SETCaOR 2,15,o;f 
L=0 TfCN 3000 

8010 PRINT "}L(E ENTRY FOR CONVOY ";TS 

+i;" ON DAY ";t-i;"." 
8020 POKE 752,i;? :? Ai$;" ";a$:? " in 
coiimand.":gosub 3310:? ;? :? " press ' 

BUnON' TO CONTINUE" 

8030 F STRIG(0)=1 TUN 8030 

30000 FOR U=200 TO 50 STCP -i:SOUND 0, 

u,io,8;next u:soum) o,o,o,o:return 

30010 Fffl* U=l TO i:SOUND 0,20,10,8:06 

UB 3fl22o;souND o,fl,o,o:NEXT u;return 

30020 U=INT(RND(0)i100)+50!SOUND 0,U,1 

o,8:gosub 3022o:souM) o,o,d,o:return 

30030 sound 0,1,1,8:GOSUB 3022D:SOUND 

o,fl,o,o:icru»i 

30200 FOR TT=1 TO 350:NEXT H 

30210 FOR n=l TO 7o:NEn n 

30220 FOR TT=1 TO 10;NEXT n : RETURN M 
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Games from BIG FIVE will 
turn your computer into a 



SUPER NOVA 



© 




"Huge ASTEROIDS have invaded the 
galaxy! Your mission is to destroy them 
and the alien saucers before they de- 
stroy you!" Our #1 lop selling game! 

$15.95 16K Mod I or III 



TRS-80™ 
HOME ARCADE 

AHACK FORCE"^ GALAXY INVASION® 



m^ 
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"Eight alien ramships are warping dov^/n 
toward your destroyer ship. You must 
shoot them down quickly before they 
crush you!" W;7/) sound! 

$15.95 16K Mod I or III 




"The newest and most exciting In- 
vaders-type game yet! Smooth sound 
effects, sharp graphics, and the 'Flag- 
ship' alien from Super Nova combine 
to make this our finest TRS-80 game!" 

$15.95 16K Mod I or III 





TS€JHPIRDSID€ 



6 South SI.Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 




Students and professors, small business 
owners and tycoons, all rave about Visicalc. 
Dispense with pencil, paper and calculator — 
instead, you can have an "electronic sheet" to do 
your calculations, projections, and planning. You 
can calculate sales projections, income taxes, 
personal budget, cost estimates, engineering 
changes — even balance your checkbook. 
Visicalc is partitioned into a matrix of rows and 
columns. At each position in this matrix you can 
define a title, formula, or number. By writing on 
your "electronic sheet," you can set up 
individualized charts, tables, and records. For 
example, you can design your own sales 
forecasting format to assist in making the 
important "What if?" business decisions such as: 
"What would happen if sales increased by 10%?" 
"What if delivery time were decreased by two 
weeks?" "What would be the result if I produced 
500 widgets this month Instead of 600? What if I 
produced 700?" With Visicalc to assist you in 
performing these calculations, you can save 
countless hours. 

Apple II 32K Disk $149.95 

Atari 32K Disk $199.95 

S-80 32K Disk $95.00 

6 South St .Milford. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-2SS-17aO 

15€:IHP^ID€ 
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Zork" is a computer fantasy of 

ultimate challenge. Unearthly 

creatures guard treasures beyond 

your imagination. Mazes confound 

your quest. So quicken your wits 

and pick your path carefully 

through the Great Underground 

Empire. The least likely object may 

be the only thing that can save 

your life. 

Yet, you can succeed. Discover 

the 20 treasures of Zork, return 

them to the Trophy Case and leave 

alive. But bring all the cunning 

and courage you can muster. 

Because in Zork, they take no 

prisoners . . 



Zork, The Great Underground 

Empire, was created by Infocom, 

Inc., and is available for 32K 

Apple II and II Plus and 32K 

S-80 Model I Level II disk 

systems $39.95 






FROM 



TS€:IHnRDSID€ 



6 South St.Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 
1-800-258-1790 



PERSONAL 
S0r7}VAK 
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ASSAULT IV 




by Jerald Uptain 

"Assault IV" is an S-80 
program requiring 16K of RAM. 

Welcome to the war-ravaged 
world of 1993! Things are not too 
pleasant these days, but you are 
about to become (in this game at 
least!) a key figure in making them 
better! How? By fighting the most 
critical battle fought by the major 
powers. The stakes are high! 
Battlefield success could bring a 
quick end to the war. However, an 
enemy victory could plunge the 
world into a darkness from which 
it might never emerge! From your 
point of view, another equally 
important stake is your personal 
career. Since Congress approved 
your last star, it has been no secret 
that you have political ambitions 
noted and appreciated in the 
highest circles. Winning the battle 
could do much to gain public 
support. Defeat? Well, let's try to 
not dwell on that! 

This program is self-instructive 
— just watch the prompts. But 
remember, the enemy has an 
excellent electronic intelligence 



system and is highly mobile. He 
will not hesitate to attack when he 
believes it to his advantage. You 
will also find that, as in real life, 
not everything on your side is 
always under your immediate 
control. For example, some of 
your battlefield commanders are 
prima donnas! I'd be careful 
giving some of them too much 
power if I were you! 

Oh yes, don't assume too much 
if you win the first time. The game 
may be tougher than you think! 

New programmers take note! 
This program was intentionally 
made up mostly of subroutines so 
that you may change it to suit your 
needs. Feel free to do so. 
Remember, this program, like all 
material in SoftSide, is for your 
use. Press on (no pun intended!), 
brave programmer, the future may 
yet be yours! 

VARIABLES 

LI, L2, L3, and L4: I, II, III and 
IVth Corps location. 
L5: 8th Army location. 
L6: 3rd Army location. 
ES: Total enemy strength. 



EC: Enemy strength per corps 

area. 

ED: Estimated number of enemy 

divisions in battle zone. 

CG: Net friendly forces ground 

gain. 

SK: Player's score. 

MS: Number of player errors. 

AA, AD, AG, AJ, AM: Number 
of infantry division in reserve, I 
Corps, II Corps, III Corps, and IV 
Corps. 

AB, AE, AH, AK, AN: Number 
of armored division in reserve, I 
Corps, II Corps, III Corps, and IV 
Corps. 

AC, AF, AI, AL, AP: Number of 
airborne division in reserve, I 
Corps, II Corps, III Corps, and IV 
Corps. 

Fl, F2, F3, F4: Total number of 

divisions in I Corps, II Corps, III 

Corps, and IV Corps. 

Al, A2, A3: Total number of 

friendly infantry, armored and 

airborne divisions. 

FT: Total number of friendly 

divisions, all types. 

LS: Corps battle loss. 

S(-): Corps battle strength. 

D(-): Initialization array variable. 



10 
20 
30 

to 

50 
60 



tKtxjoiunxxtttjatxtxxxtxtxxt 
* ASSAULT IV I 

K X 

X (C) COPYRIGHT 1980 t 
« BY JERALD V. UF'TAIN x 



inXOKXIKXIIDIIXXXXXXIXXXlIXXXX 

70 CLS!CLEAR4flO!DM)(20) 
BO DATAl,l.Ul.l.l,l.l.l.ltlf2,2,2,3,3,t,1,t,1 
90 GOSUB2100JPRINTSTRINGt(61,15);!PRINTCHR$(212);"A S S A U L T 
IV":PRINTSTRING$(128,t5); 

100 printe39'j,"l - new players ( all recruits f0r11 a lm here! 
)";;printi?522,"3 - experienced players ( combat veterans only! ) 
";;gosubio7o:q$=im<ey$ 

no A$=INtIY$!FA«="l"ORA$="3"THEN120aSEPRINTe666,"( HIT NUMBER 
)";:FORT=lTOlOO:feTT:PRINT0666,CHR*(2O6)|!FORT=lTOlOO!^EXTT:K) 
TOllO 

120 IFA*="1"THENGOSUE570 
130 GOSUBIlOJGOSlEltO 
110 GOSUeil6O:CLS!PRINT0162,"Ei ATTLE IN PROGRESS 



LINES 150-100! Battlefield ro(.itine, arid end of qme routines. 



150 ' 

160 GOSUB1610;KE=€S 

170 C=1!L=L1!X=AD!T=AE!A=AF:GOSIB1660!L1=L!AD=X:AE=T;AF=A 

180 c=2:l=l2:x=ag:t=wi:a=ai:gosuei66o:l2=l!ag=x!ah=t:ai=a 

190 C=3:L=L3:X=AJtT=AK:A=(!i:GOSl«1660!L3=L!AJ=X!AK=T!AL=A 

200 c=i:l=li:x=am:t=an;a=ap:gosubi66o:li=l:am=x:an=t:ap=a 

210 L6=L1-115+61xRND(3) ;L5=Ll-131+61xRm(3) 



220 FL1<198THEM.1=198 
230 FL1>838THEM.1=838 
210 IFL2<211THEM^=211 
250 FL2>851THENL2=851 
260 FL3<221THEM.3=221 
270 FL3>861THEM3=861 
280 FL1<237THENL1=237 
290 IFL1>877THENL1=877 
300 IFL6<250THEM.5=250 
310 IFL6>890THEM.5=890 
320 FL5<192TieL6=192 
330 IFL5>832THE^L6=832 
310 GG=(2150-L1-L2-L3-L1)/61:G&=INT(GG) 
350 ED=(lxEC-KE+ES)/8.5:ED=INT(ED):iFED-<0THEfED=0 
360 GOSUB1170:SK=10x(GG+INT((136-ES)/8.5)-INT(16-n)-MS) 
370 GOSUB110:GOaiE110:PRINTe0,E$|:F(Ll=83a)RL2=851ORL3=a4K)RL1= 
877)THENGOSUB1870ELSEIFFT<1THENGOSUB1970ELSEF(GG<-11ORHS>1)THEN 
GOSUB2080ELSE[F(GG>120RES<28)THENGOSl«2180ELSEGOT0110 
380 CLS!PRINT0339,"DO YOU WANT TO TRY AGAIN?" ;:Q«=IM<EY$ 
390 A*=INKEY$:FA$="Y"ORA$="N"TfEN100ELSEPRINTei71,"( HH 'Y' OR 
'N' )"!;FQRT=lTO100:NEXTT:pRINTei71,Ctf»(210);:FORT=lTO100:(tXT 
T!GOTO390 

100 IFA$="Y"TlCNCLS:PRINTe398,"0 NE MOMENT PLEASE 
! ":RESTOfiE;CLEAR600:DM)(20) {GOSUe2100:GOSUB1070:GOTO13flELSEF 
A»="N"THENCLS;PRINTe312,"E NO OF GAM E";:PRINTei68,"T0 P 
LAY AGAIN, ENTER 'RUN'";:EM) 

Lines 110-130: Dra« situation nap. 



110 ' 

120 CLS:X1»=" 



"+STRiNG$(i2,32) :fory=itoi6:printchr$(197) ;xi$;xu 
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;xi»;xi»;".";cHR$(i98);!fEXTY!PRiNTeLi,Li$;:pRiNTeL2,L2$;:PRiNTe 

L3,L3*|:PftINT(?L1,L1$i;pRINTeL5,L5$;:pRINTeL6,L6«; 

tao PRINT096O,Crt?*(H9);" ENEMY divs:";ed;!Printi?977,"? ";chr»(i 

19);" reserve:";!F'Rinti?ioo5,chr*(ii9);" score; ";sk;!Print0io22 

Lines 110-560! Division Locater 



110 ' 

150 x=ad:y=ae:z=af:p=li+6i;gosubi60!x=ag;y=ah:z=ai;p=l2+ai;gosub 

160:X=Ad:Y=AK!Z=AL:p=L3+6i:GOSUB160IX=AM:Y=AN:Z=Ap;p=L1+ii;GOSUe 

1(40 ;X=AA! Y=AB!Z=AC!P=991 :GOSUB160 :Rn"URN 

160 ' 

170 A$=""!FXO0TJeW*=A»+STRING»(X,88) 

180 IFYOOTICNA«=A$+STRING»(Y,81) 

190 IFZO0THENA$=A$+STRING$(Z,65) 

500 L=LEN(A$) :iFL=OTHeiPRINT0P,CHR$(2O1) ; :RETURf£LSEF[)RT=lTOL:e» 

(T)=tiIM(A*,T,l);rOTT:F0RT=lT0L 

510 R=RND(L):iFE*(R)=" "■fflEN510aSEA*(T)=e$(R)!B»(R)=" "INEXTT 

520 FL=lPRINTeP," ";A$(1);" ") 

530 IFL=2PRINTep," "|A$(1)|" ";A$(2);" "', 

510 iFL=3PRiNTep," "(Atd)!" ";a$(2);" ";a$(3);" '■; 

550 FL=iPRiNT8P," "jAid)!" ";a*(2);" ";a$(3);" ";a«(1);" "; 

560 F0RT=lT01JA$(T)=""!B$(T)=""JftXTT:RETUW 

Lines 570-1060! Prograw orierjtation. Gives background 
information about the situatiorj being sinulated. 

570 ' 

580 CLS!PRINTe0,STRING«(63,111)MpRINTe960,STRING«(63,111);!PRIN 

Tei98,"IT IS h^«CH 20, 1993. THE WORLD HAS BEEN AT tWR FOR TWO" 

590 PRINT"YEW?S. SO FAR, ONLY 'CONVENHONAL' kEAPONS HAVE BEEN 

USED. AT" 

600 PRINT"PRESENT, THE CO^FLICT HAS BEEN REDUCED TO A EURtPEAN L 

AND Hm," 

610 PRINT"MOST ALLIED COMMA^©ERS BELIEVE THAT VICTORY IS CLOSE A 

T HWO." 

620 PRINT"HO^CVER, INTELLIGENCE HAS CONFIRMED THAT T^£ ENEMY IS 

MASSING" 

630 PRINT"HIS STRONGEST COMBAT DIVISIONS IN AN AREA APPROXIMATEL 

Y 100" 

610 PRINT"KILOMETERS NORTH OF DRESDEN IN PREPARATION FOR A SLASH 

ING DRIVE" 

650 PRINT"ACROSS GERMANY. NORPAC CmVM HAS DECIDED TO CRUSH T 

VE ENEMY" 

660 PRINT"BUILDIJP HHH AN AHACK BY Ttt '5TH ARMY GROUP. ' 8TH A 

ND 3RD" 

670 PRINT"ARMIES WILL PROVIDE FLAW( SUPPORT." 

680 PRINT!GOSUB1130!CLS 

690 PRINTeO , STRING* ( 63 , 111 ) ! ! PRINT096O , STRING* ( 63 , lH ) I ! PRINTei9 

8, "YOU ARE THE COMMAfffllNG GENERAL OF THE US KMTHERN DESERT" 

700 PRINT"COMMAM). EARLIER IN THE DAY, YOU >CRE TOLD BY THE COM 

mOER OF" 

710 PRINT"NORPAC THAT YOU WOULD ffi PICKED TO COMMAND THE 5TH ARM 

Y GROUP" 

720 PRINT"K:CAISE OF YOUR PROVEN ABILITY DURING THE PAST MONTH. 

AS YOU" 
730 PRINT"PONDER ThE CHALLENGE, AN AIDE BRINGS YOU THE FOLLOWING 

LEHER," 

710 PRINT"k»aCH HAS JUST ARRIVED:"!PRINT!GOSUB1130 
750 ' 

760 CLS!PRINTCHR*(213)|"S T R A T S E C":PRINTCHR»(213);!F0RT=1T 
015!PRINTCHR*(131) ; !fOTT:PRINTC«»(13); 
770 PRINTCHR»(211);"HEA0QUARTERS" 
780 PRINTCtl?«(209);"NORPAC COMMAND, EUROPE" 
790 PRINT!PRINT"DEL! ARMED COURIER";CH«(220);"17 MARCH 199 

3" 
800 PRINT"SUBJECT! CONFIRfWHON OF ASSIGWtNT" continued on next page 




STAR 
TREK III.5 



ALL NEW VERSION! 

by Lance Micklus 

Now with Sound Capability 
and Increased Speed of 

Execution. 

You are in command of the 

starship Enterprise and her 

complement of 371 officers 

and crew. You must enter 

and explore the Omega Vl 

region of the galaxy with its 

192 quadrants containing star 

systems and planets (a few of 

which are habitable). 

Astronomical hazards such as 

pulsars, Class stars, and 

black holes are known to be 

present in the region. Klingon 

battle cruisers are also 

present, so the utmost care is 

needed. 

Star Trek III. 5 includes: 

playboard 8 by 3 by 3 

quadrants; weapons system 

of Phasers and Photon 
Torpedos; Warp and Impulse 
power systems; Science and 
Ship's computers; Long and 

Short Range sensors; 
Damage Control and Status 
reports; and 20 Klingon battle 
cruisers, and 100 stars, 
planets, black holes, and 
pulsars. 
Available on Digital 
Cassette for Level II, 
16K $14.95 
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continued from previous page 

BIO PRINT;PRINT"T0: COWiAKDING (»ERAL" 

820 FiaMCW«( 202) {"SOUTHERN DESERT COMhW©" 

830 F'RINTCHR$(20Z);"AF'O 765, US FORCES"!PRINT 

310 PRINT" 1. PROCEED IMMEDIATELY TO SHCON LOC. IB AM) ASSUME 

COMMAND" 

850 PRINT"OF 'STRIKEDOWN' PER OUR CONVERSATION THIS DATE." 
860 GOSUB1130 

870 CLStPRINT" 2. IMFlEfENT PLAN 'VICTOR' NOT LATER THAN 0700 
HOURS," 
880 PRINT"10 APRIL 1993. YOU WILL BE SlfffORTED BY 'BIG RED' AND 

'BLUE" 
890 PRINT"BOY,' AS AO^ED." 
900 PRINT" 3. BE PRtPARTED TO E)(ECUTE PLAN 'QUICKFLASH' ON TfC 

C»WANO" 

910 PRINT"OF THIS tCADQUARTERS, SHOULD USE OF ATOMICS KCOME f£C 
ESSARY." 

920 PRINT" 1. REPORT LATEST BATTLEFIELD INTELLIGENCE TO THIS" 
930 PRINT"HEADQUARTERS NOT LATER THAN 2100 HOURS THIS DATE, VIA 
'BABELX'" 

910 PRINT"CODE MtY." 

950 PRINT;PRINTCtR$(198);"F0R THE COMMANDER;" 
960 F1t[NTCHR$(Z17) ("HARRISON C. SMYTHE, GENERAL" 
970 PRINTCrt»(217) ("DEPUTY COMMANDER, NORPAC C»«AND" 
980 PRINT:PRINTCrt»(213);"S T R A T S E C"!PRINTCHR$(213)f '.FORT= 
lT015;PRINTC«»(131);:NE)aT!PRINTCHR<(13); 
990 GOSUB1130 
1000 ' 

1010 CLS:PRINTI?O,STRING$(63,111);!PRINT096O,STRING*(63,111);:PRI 
NTI?196,"Y0U HAVE JUST ARRIVED AT SITCON LOC. IB UOIR COMWiND PO 

ST)."; 

1020 Ff;lNT"YOU ARE BEING BRIEFED ON THE BATTLEFIELD SITUATION. 

BEFORE YOU" 

1030 PRINT"IS YOU? COmWD BOARD, WHICH IS mCH LIKE IVE EARLY" 

1010 PRINT"MICRa:fflWrERS USED LAST DECADE. FROM HERE, YOU WIL 

L" 

1050 F'RINT"CCWTR(L THE ALLIED FORCES UM)ER YOl« C»«AND.": PRINT: 

GOSUB1130 

1060 RETURN 

Lines 1070-1120; Sets up initial battle positions. 

1070 ' 

1080 GOSUEil090;AA=A;AB=e;AC=C:GOSUB1090;AD=A;AE=B;AF=C;GOSlB1090 

:ag=a;ah=8;ai=c;gosubio9o;aj=a;ak=b;al=c;gosubio9o:a«=a:w<=6;ap= 
c;return 

1090 '■ 

1100 A=fl:B=0;C=fl;FORK=lT01 

1110 R=RND(20) ;IFD(R)=0THEN1110ELSEIFD(R)=1THENA=A+1ELSEIFD(R>=2 

THENB=B+lELSaFD(R)=3THENC=C+l 

1120 d(R)=o;nextk;retui»i 

Lines 1130-1150; Delay proqraH execution until the Enter key 
is hit. 

1130 ' 

1110 Q$=INKEY$ 

1150 AZ»=INKEY$;FAZ$=C««*(13)TfCNRETURNaSEPRINTC«»(212);"(PRE 

SS 'ENTER' TO COMTINUE)"!CH»(29);;FORT=iTO100:NE)(n;PRINTCHR$(2 

51);CHR*(29);;F0RT=lTO50JfEXn;GOTO1150 

Lines 1160-1160! Battle cotwand center. Allows repositioning 
of forces. 

1200 PRINT0O,E$;;pRINTeO,"TYPE OF DIVISION YOU WISH TO M(WE?":PR 
INT861," X = INFANTRY T = ARMORED A = AIRB[»»E";!Q*=INKEY$ 
1210 A$=INKEY»;iFA$="X"ORA»="T"ORA*="A"THEN1220ELSEF'RINTei19,"(H 
n 'X', 'T', OR 'A')";;FORT=lTO100:NEXn;PRINTI?119,Q«$(211);;FO 

rt=ito5o;nextt;gotoi2io 



1160 ' 

1170 GOSUB117O;FraNT(?O,E$;;pRINT0O,"YOU mJE";FT," DIVISIONS, LO 
CATEO AS SH0W^.";pRINTe69,"X = INFfWTRY T = ARMORED A = AIRB 
ORNE";pRINT0128,"DO YOJ WANT TO RE-POSITION THEM?";;Q$=INKEY» 
1180 A«=INKEY$;FA$="Y"ORA$="N"THEN1190ELSEPRINTI?168,"(Hn 'Y' 
R 'N')";:FORT=lTO100;feTT!PRINTei68,CHR$(208>;:FORT=lTO50:NEXn 

;gotoii80 

1190 XX=(F1=OORF2=OORF3=OORF1=0) ;FXXANDA$="N"THEN1150ELSEFA$=" 
N"PRINTeO,E$;:RETURN 

1220 FA$="X"THENV=1ELSEIFA*="T"THENV=2ELSEIFA$="A"THENV=3 

1230 F(V=1ANDA1=0)OR(V=2ANDA2=0)OR(V=3ANDA3=0)PRINTI?61,"YOU m 

E NO ;DV*(V);" divisions LEFT!";GOSUE«90;MS=MS+i:GOaJB1700;GOTO9 

10 

1210 R=Rf«)(30);iFR-13THENGOSUE2320;RETURN 

1250 R=RND(100) ;IR<3THENGOSUB2350;IFKK=1THENRETURN 

1260 PRINTI?0,E*;;PRINTI?0,"^»£RE DOES THE ";DV$(V)|" DIVISION HOV 

E FR0M?"!PRINTI?61,"(1=I CORPS, 2=n CORPS, 3=111 CtKPS 1=IV CORP 

s, 5= RESERVE)"; ;q$=inkey$ 

1270 B$=INKEY$;iFB$="l"ORBt="2"ORB$="3"ORB»="1"ORB*="5"THEN1280E 
LSEF'RINT0151,"(Hn NWBER)";;FCKT=lTO100;NEXTT;F'RINTei51,CHR$(20 

1) ; ;fort=ito50 ;nextt:gotoi270 

1280 x=(a$="X");y=(a$="T");z=(A$="A");l=val(e$);ki=o;k2=o;k3=o 

1290 Kl=( (XAM)L=lANDAD■a)0R(XANDL=2ANDAG<l>0R(XANDL=3A^g)AJ<l)0R( 
XANDL=1ANDAM<1 )0R(XANDL=5ANDAA<1 ) ) ;K2=( (YANDL=1AM)AE<1 )OR(YANDL= 
2ANDAH-a )0R(YANDL=3ANDAK<1)0R(YANDL=1ANDAN<1 )0R(YANDL=5AW)Ae<l) ) 
1300 K3=((ZANDL=lAM)AF<l)0R(ZANDL=2AM)AI<l)0R(ZANDL=3Ai®AL<l)0R( 
ZANDL=1AN0AP<1 )OR(ZANDL=5ANOAC<1 ) ) 
1310 FK10RK2ORK3PRINTI?128,"Y0U HAVE NO ";DV*(V);" DIVISIONS IN 

";lo$(L) ; " ! " ;gosubii30 :ms=ms+i :gosub228o ;gotoi260 

1320 PRINTeO,E$;:F'RINTI?0,"t«ERE DOES THE ";DV«(V);" DIVISION MOV 

e to?";print061,"(1=i corps, 2=11 corps, 3=111 corps, 1=iv corps 

, 5=reserve)";;q$=inkey$ 

1330 r=rnd(30 ) :ifr-13thecosub2320 (return 

1310 R=RNO(100) :IFR-<5THENGOSUB2350(FKK=1THENI£TURN 

1350 C$=INKEY$;iFC$="l"ORCt="2"ORC$="3"ORCt="1"ORC$="5"THN1360E 

LSEPRINT(?151,"(HnNUHE£R)"{;FORT=lTO100(NEXTT;PRINTei51,CHR$(20 

1) ( (FORT=lTO50(NEXTT(GOTO1350 

1360 C=VAL(C$) !IF(C=lANDFl>3)0R(C=2ANDF2>3)OR(C=3AM)F3>3)0R(C=1A 

NDF1>3)OR(C=5ANDFR>3)PRINTeO,E$(;PRINTgO, "SORRY, GENERW., TFtRE' 

S ROOM FOR ONLY 1 DIVISIONS I "!GOSUB1130:MS=«S+i;a]SUB2280;GOTO13 

20 

1370 FC=LTHENPRINTeO,E$;;PRINT0O,"THE DIVISION IS ALREADY IN "; 

LO*(C) ; " ! " ;GOSI«1130(MS=MS+1 (GOSUE:2280 (GOTO1320 

1380 R=RM)<30) (FR-13THENGOSUB2320;RETURN 

1390 R=RND(100) (IFR<3THEf«OSUB2350(FKK=lTHENRETlBI 

1100 ONVGOSUB1190, 1530, 1570 

1110 GOSUB11O(PRINTeO,Et({PRINT0O,"THE DIVISION IS RELOCATED! DO 

YOU WANT TO RE-POSHION OTHERS?" (;Q*=INKEY$ 
1120 At=INKEY$;iFA$="Y"ORA$="N"THEN113OELSEPRINT0M,"(Hn 'Y' OR 

'N')"((FORT=lTOlOO;NEXTT;F1<INT088,CHR«(2O8);:FORT=lTO5O((exn;G 
OTO1120 

1130 GOS(«1170;XX=(F1=OORF2=OORF3=OORF1=0) 
1110 FAt="Y"THEN1200 

1150 FA$="N"ANDXXF'RINT0O,E*;;PRINTeO,"YOU CANNOT LEAVE A CtKPS 
AREA UNDEFENDED! !";GOSUB1130(MS=MS+1(GOSI«2280(GOT01200 
1160 PRINT80,E$( (RETIME 

Lines 1170-1180{ Total friendly divisions. 

1170 ' 

1180 ai=aa+ad+ag+aj+am(A2=ab+ae+ah+ak+an;a3=ac+af+ai+al+ap;fr=aa 

+AB+AC{Fl=AD+AE+AF(FZ=AG+AH+AI{F3=AJ+AK+AL{F1=AM+AN+tf{FT=Al+A2+ 
A3(RETURN 

Lines 1190-1520; Infantry Hove verifier. 

1190 ' 

1500 IFL=lTHENAD=AD-lELSEIFL=2THENAG=AG-iaSEIFL=3TtCNAJ=AJ-lELS 

EIFL=1THENA«=AM-lELSEIFL=5TfeNAA=AA-l 

continued on page 63 
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Do You Have What it Takes to be a 

SoftSide Editor? 



Are you computer literate? 
Are you just plain literate? 
Are you both? If so, then you 
may be the person SoftSide 
is looking for. We need 
people who like to write both 
in English and in BASIC to 
work on our editorial staff. 

As a leader in the field of 
software publishing, 
SoftSide is committed to 
providing its readers with 
clear, concise, and easy to 
understand articles and 
programs for the TRS-80™ 
Apple, and Atari 
microcomputers. Our growth 
rate is such that our staff is 
constantly expanding and we 
are always on the lookout for 
those with the special skills 
required to put out a quality 
magazine. 

While New Hampshire wages are not the highest 
around, we offer a better scale of pay than most of 
our competitors. Furthermore, our fringe benefits are 
excellent. Another bonus is that New Hampshire has 
no personal income or sales tax. 

Located in a beautiful area of southern New 
Hampshire, Milford is within an hour's distance of 
Boston, the Atlantic Ocean, and the White 
Mountains. Nashua and Manchester, New 
Hampshire's two largest cities, are but 15 minutes 
from our offices. Ski slopes abound in the region, as 
do fine restaurants, arts and crafts centers, and 
countryside the likes of which must be seen to be 
believed. 

If you are a hard-working, skilled person with 
experience in the fields of computers and magazines, 
and if you enjoy the relaxed country lifestyle with the 
convenience and cultural opportunities of major 
urban centers nearby, drop us a line. We might be 
good for each other. 

If you feel that you fit the bill, please write to us 
and let us know who you are and what you can do. A 
formal resume isn't a necessity, just send a letter 
outlining your skills, qualifications, and experience 
to: 




Dave Albert, 
SoftSide Publications, 
6 South Street, 
Milford, New Hampshire 
03055 
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ABM 

Invader and Asteroids move over. . . 
ABM has arrived! Command your 
launch sites to fire 1 and 5 kiloton 
anti-ballistic missiles (ABMs). Save 
the East Coast from increasingly 
fierce Enemy nuclear attack. Posi- 
tion your target crosshairs to blast 
the green streamers before they fire- 
ball yourcities— or worse— split into 
multiple v^arhead MIRVs turning the 
entire coast into a thundering 
specter of destruction. Hi-res color 
graphics, sound, high score to date 
memory, paddle or joystick control. 
On disk, requires Applesoft ROM, 
($24.95) 



ihiMliiiiL 



-dikii'jki 



2S hBM'S 




DATA PLOT 

Easy editing features allow you to 
create and modify a wide variety of 
full color graphic representations of 
numerical information. Bar charts, 
including additive bars, as well as 
single and multiple line charts may 
be plotted individually or cumula- 
tively. Pie charts are easily sliced. 
All figures may be output to a 
graphics printer or saved as hi-res 
"pictures" for dramatic full color 
recall as visual aids during presen- 
tations. Basic statistics are displayed 
automatically. On disk, requires 48 k 
and Applesoft ROM. ($59.95) 



from the leader in quality sofUvare 



MUSE 



SOFTWARE^ 



Apple II is a trodemark of Apple 
Computer Corp 
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An. 



by Phelps Gates 



Now a high-level, scientific programming language for the home computer that doesn't cost $200 or $300. The power of 
this language is in its strong mathematical operations, especially with regard to matrices and vectors. Programs requiring 
matrix multiplication or other matrix problem solving that would require hours of programming time in BASIC are solved 
quictdy and with minimal effort in APL. 

To aid In learning APL, lessons are included on the disk. Starting from the basics, you are brought step by step through 
the various programming techniques involved with APL. These lessons act as a tutor which will have you "talking APL" in 
no time. Also available Is the book, "APL: An Interactive Approach," which reinforces many of the examples given in the 
lessons and provides additional insight into APL programming. 

FEATURES 

APL-80 on disk contains the following features: )SAVE and )LOAD workspace on disk; )COPY other workspaces into cur- 
rent ones; Return to DOS for directory or commands without losing your workspace; Send output to lineprinter; Five 
workspaces of lessons included; Sequential and random files; 15 digit precision; Monadic and dyadic transposition; Easy 
editing within FUNCTION lines; Latent expressions (FUNCTION can "come up running" when loaded); Tracing of function 
execution; Real-time clock; User-control of random link; Workspace is 25587 bytes (in 48K machine); Arrays may have up to 
63 dimensions. 

COMMANDS APL-80 

APL-80 supports the following commands; Absolute value, add, and assign, branch, catenate, ceiling, chr$/asc, circular, 
combinational, comment, compress, deal, decode, divide, drop, encode, equal, expand, exponential, factorial, floor, for- 
mat, grade down, grade up, greater, greater/equal, index generator, indexing, index of, inter product, label, less, less/equal, 
logarithm, maximum, member, minimum, multiple, nand, negate, nor, not, not equal, or, outer product, peek, poke, quad, 
quote quad, random, ravel, reciprocal, reduction, reshape, residue, reverse, rotate, scan, shape, sign, system, subtract, 
take, transposition. 

SPECIFICATIONS 

Minimum system requirements: 32K disk system (&48K recommended) includes APL-80, Five workshapes of lessons, in- 
struction manual $39.95 on disk 

Reduced feature: 16K Level II tape version, no lessons. 

Transpositions, format, and inner product not implemented. Reduced domain for some functions, 6 digit accuracy. 
$14.95 on cassette 

LIMITATIONS 

Due to the absence of ttie special APL character set on the TRS-80 , APL-80 uses shifted letters to represent the various APL characters. In addition to the keyboard 
limitations, lamination, domino, and matrls Inverse are not Implemented but can be derived with user-defined functions. Multiple specifications must be split Into 
two statements unless the left-hand assignment is to a quad. This also applies to Implied multiple specifications. Reduction and reshape (p) are not permitted for 
empty arguments; the argument of add/drop may not be scalar; empty Indices are not permitted. A quad {q) can't be typed In response to a quad (nor can the name 
of a function which itself gets input from a quad). Quote-quad (m) Is permitted. No more than 32 user functions can be defined In a single workspace and a function 
may not contain more than 255 lines. 

A comment (c) must occupy a separate line: a comment can't follow a function statement on the same line. 
In the tape version, arrays are limited to five (5) dimensions. 




TS€:IHPIRDSID€ 



6 South St .Milford. NH 03055 (603)673-5144 
TOLL FREEOUTOFSTATE 1-800-258-1790 



SoflSide, April 1981 



47 



DOMINOES 



by Peter Kirsch 

"Dominoes" is an S-80 program 
requiring 16K of memory. 

Take a stroll through the 
boneyard with your S-80. Here for 
your delight are three versions of 
the classic game of dominoes. 
Your computer is an astute 
opponent, so be ready for a hard 
fought game, no matter which 
version you choose. 

All the rules for play are 
included in the program itself, as 
well as some thoughts on the game 
by the author. But the best way to 
explore domino theory, short of 
watching newsreels from the '50s, 
is to play. Type it in and find out 
for yourself. 



VARIABLES 

Al: In Draw game, the number of 

pips in the tile the computer drew 

to select starter. 

A2: Same as Al above, but for 

player. 

A3 : Used to determine starting 

double. 

A$( ): Boneyard. 

Bl: In Draw game, the number of 

pips in the tile the player drew to 

select starter. 

BE: Flag used in Bergen. BE= 1 if 

the current player has already 

drawn a bone from the boneyard 

in this turn. 

BN: Number of bones in yard. 

C( ): Quantity of each set of pips 

computer currently holds. Needed 






for best play of computer. 

D: Game number being played. 

D( ): List if screen positions for 

bottom of screen tile display. 

DM$: Contains the left and right 

ends of the domino chain. 

G: Graphic block for drawing 

bones. CHR$(140) 

G$( ): Names of each game. 

GM: Set to 1 after the first time 

through the game. When equal to 

I, the instruction routine is 

skipped. 

GO: Player going out. 1 = Player in 

game 1,2 = Computer in game 1 , 

3 = Player in game 2,4 = Computer 

in game 2. 

GT: Score needed to win. 

H: Number of pips in either the 

lowest or highest double in the 

player's hand at the start of the 

game. Used to determine starter in 

Block and Bergen games. 

HM: 1 if human player has a 

double at start of game. 

L: Number of pips in a certain side 

of a bone. 

LD: One if left tile is a double. 

LT: Number of pips on left side of 

chain. 



MD$: Contains the right and left 

ends of the domino chain. 

P: Top of screen memory (15360). 

P$( ): Player's tiles. 

Pl$( ): Temporary storage of 

player's tiles. 

PB: Number of bones player has. 

PL: Player control variable. 

1 = Player's turn, 2 = Computer's 

turn. 

Ql: Used to determine where 

computer's tile should be placed. 

1 = on left of chain, 2 = on right 

side. 

RD: One if right tile is a double. 

RT: Number of pips on right side 

of chain. 

S: Value of right portion of 

computer's tile. 

SP: Total number of pips player 

has at end-of-hand. 

ST: Total number of pips 

computer has at end-of-hand. 

T: Same as H above, but for the 

computer. 

T$( ): Computer's tiles. 

TB: Number of bones computer 

has. 

TP: Player's score. 

TR: Used if computer has a double 

at start of game. 

TT: Computer's score. 

W: For/Next variable to cycle 

through each bone in the 

computer's hand. 

WI: Computer's play to be used if 

no others plays exist. 

X$: A short graphic line used to 

underline current player on screen 

display. 

Xl$: A string of blanks used to 

erase the Hne created by X$ above. 





illiHilBiMitnnwiniiiiDioiiiiiiiliHilHIl 


Lines 5-10 J Heading display and variable initialization. 


30 GOSUB2000 




10 PRINTe330, "DOMINOES"; !PRIIffl?312,"DC»1MES"; 


5 CLS5PRINTC«^'*(23)," 




DOHIMOES 


Lines 5fl-66i Ga«e selection! 


VERSION 2,1 




6 ' BY PETER KIRSCH 


50 PRINTe512, "CHOOSE GAiC"!!Fa*A=lTO35PRINTe530+Ax61,ACHR*(21)", 


JULY 1980 


"G$(A);!fEXT 




60 A$=INKEY$:FORB=lTO125:NEXT!POKEli007,63:FORA=lTO125:NEXT:POKE 


10 CL£AR1(IOI).'R/««OM;GT=100;&=110:P=15360:DD1(28),D(20),P»(2I)) 


lA007,32:iFA»=""TroW0 


,T»(20),P1*(20) 


65 [)=VAL(A*) :FD<aORD>3Tl£N60ELSEIFD=3THENGT=15ELSEIFD=lTHDffiT=5 


15 G$(1)="BL0CK IMt."'.G%i2)="am GAIC":G$(3)="KRGEN "!X*=ST 





RIflG»(3,131):Xl»=" ":CH=-i:pe=7:TB=7!BN=H;DB=l 


66 FD=2GS=1 


20 C=i:FORA=0TO6:F(]RB=0+(!HO6;At(C)=STR$(A)+STR$(B)!C=C+i:NEXT;NE 




XT 


Lines 70-99: Instructions. 


22 IFG«=1THEN190ELSEG«=1 




25 FORA=lT016:D(A)=896+(Ai3):fea 


70 PRINTe512,G$(D)" "j:PRINTI?595,"D0 YOU WANT ";!PRINTe659," 
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RUL£S? ";:PRINTe723," (Y/N) 



"5JPRINTe787," 



71 A»=INKEY$:FA$=""THEN71ELSEffA«="N"THEN100ELSEIFA»="Y"THEN80E 
LSE71 

80 CLS;PRINT"DOMINOES ARE PLAYED WITH A DOUBLE-SIX PACK OF 28 H 
LES (CALLED";PRINT"BOftS) WITH PIPS (OR SPOTS) RANGING FROM 0/0 
TO 4/6. PLAYERS"!F-RINT"ARE DE/^T 6 OR 7 BONES (DEPENDING ON GAME 
). THE REST OF THE" 

82 PRINT"PA(3< IS CALLED Tf€ EDMYARD (OR JUST YARD) AND IS SET A 
SIDE FOR"tPRINT"LATER. THE PRIMARY OBJECT OF DCMDfflES IS TO BE T 
fC FIRST T0":PRINT"PLAY ALL HIS HLES At© GO OUT, OR HAVE THE LO 
WEST PIP COUNT" 

81 PRINT"LER IN HAND WHEN PLAY EM)S. PLAYERS, IN TURN, LAY TILE 
S IN A":PKINT"LO^e CHAIN, MATCHING ADJACENT ENDS.";PRINT!PRINT"T 
« LARGE DOMINO IN THE DISPLAY SHOWS BOTH EJ®S (F Tf£ CHAIN."!PR 
INT"YOU NEED MERELY TO KEY IN THE fftJMKRS (F THE TILE Y(MJ WISH 
TO" 

86 PRINT"PLAY A^B) n HUL BE PLACED FOR YOU. YOU NEED NOT PfESS 
ENTER. ";PRINT"YOl« DOMINOES HILL BE DISPLAYED ALONG THE BOHOM 
F THE SCREEN."! PRINT :PRINT"STARTING (SETTING) AM) SCORING DIFFER 
S WITH GA« PLAYED."!GOSU65flOO 



87 CLS:PRINTG$(D)!PRINT:0M)G0T093,96,88 

88 PRINT"PLAYERS ARE OEfiLl 6 BONES INSTEAD OF 7. GAME IS PLAYED 
TO 15":PRINT"P0INTS. THE LOWEST DOUBlf MUST BE SET AND THE HOLDE 
R SCORES 2"!PRINT"P0INTS. THE OBJECT OF TtC GA« IS TO MATCH BOT 
H ENDS OF THE" 

89 PRINT"CHAIN, MAKING BOTH ENDS ALIKE. HE SCORES 2 POINTS FOR A 
":F'RINT"D0UBLE-HEADER. F one end of the CHAIN HAS A DOUBLE OR I 
F TH£"!PRINT"PLAYER PLAYS A DOIBLE, VE SCORES 3 POINTS FOR A TRI 
PL£-HEADER." 

90 PRINT"A SMALL 'D' INSIDE A CIBICLE ON THE MMINO ON THE DISPL 
AY"!PRINT"INDICATES A DOUBLE ON THAT END OF THE CHAIN. IT'S JUST 

a":print"reminder. if a player goes our, he gets i additional p 

OINT. ALL" 

91 PRINT"BOtCS IN THE YARD ARE PLAYED, ff YOU CAN NOT PLAY YOU M 
UST":PRINT"DRAW one EONE «» »LY »E. F you STILL CAN NOT PLAY 
, YOU m)ST":PRINT"PASS. IF Ti€ YARD IS USED UP, 2 CONSECUHVE PA 
SSES ENDS PLAY.";GOSUe500G!GOSUB2000;GOTO100 

93 PRINT"F1AYER HAVING THE HIGttST DOUBLE (WST START W» SET IT. 
THERE" :PRINT"IS NO DRAW FROM Tf€ YARD. PLAYERS PLAY OMLY WITH T 
ILES DEALT. ":PRINT"Ht€N YOU CAN'T PLAY, YOU MUST PASS. TWO CONSE 
CUnVE PASSES" 

91 PRINT"EM)S PLAY. GA(C IS PLAYED TO 50 POINTS. ":G0SUB98;G0SI«2 
OOOJGOTOIOO 

96 PRINT"PLAYERS DRAW BONES TO SEE t#C SETS FIRST, HIGHEST TILE 

(total":print"pips) starting and placing any tc mG, f a playe 

R CAN N0T"!PRINT"PLAY A TILE, HEMUSTDRAWONEQRMOREFROMTHE 
YARD UNHL HE" 

97 F'RINT"CAN PLAY AND PLAY IT. TH LAST 2 BOICS IN THE YARD ARE 
FROZEN" :PRINT"AND may not BE PICKED. A PLAYER MAY NOT PASS UNTIL 

WEH, THO":PRINT"CONSECUnVE PASSES ENDS PLAY. GAME IS PLAYED T 
100 POINTS." 

98 PRINT;PRINT"SC0RING; F W£ PLAYER GOES OJT, t£ SCORES THE SU 
M OF THE PIPS":PRINT"0N HIS OPPONENT'S Ui«lAYED TILES. IF NO ONE 

GOES OUT, THE"!PRINT"PLAYER WITH THE FEJCST REMAINING PIPS WINS 
AM) SCORES 1V£" 

99 PRINT"DFFERENCE BETWEEN HIS AND HIS OPPO(€NT'S."!GOSUB5flOO:i 
Fl>=lTH0«ETURNaSEGOSUB2OOO 



Lines 100-299} Deterwine who should dove first. Each qa«e 
has 3 different method to deterwine starter. 



100 FD02THEN19flaSEPRINTe512," 



:GOSUB150:PRINTe583," 



WE'LL DRAW TO SEE WHO STARTS"? }FORA=lTO2000;NEXT!CH=fl 

110 A=RND(28);B=RW)(23):IFA=8THEN110ELSEA1=VAL(MID»(A$(A),2,1))+ 

yAL(RIGHT$(A*(A),l))!Bl=VAL(MID*(A$(B),2,l))+VAL(RIGHT$(A$(B),l) 

)!PRINTe583,"I DREW A"A*(A)", YOU DREW A"A»(B)J 

120 FAl=BlPRINTe617,"WE BOTH HM€"Al"PIPS";:PRINTe711,"IC'LL RE 

ORAW";:FORA=lTO2flfl0:NE)(T:GOSUB150:FORA=lTO999:NE)ajGOTO110 

130 IFAl>BlPRINTe617,"I HAVE"A1"AM) YOU HAVE"Bl"PIPS",';PRIMTe711 

,"I START"! :FORA=lTO30fl0:NE)(T:GOSUB150:Z2=2{PL=lJGOTO190 

110 FBl>AlPRINTe617,"Y0U HA^"Bl"Alfl) I HAVE"Al"PIPS"J!PRINTe7U 

,"YOU START"; !FORA=lTO30fl0tl€)a!Z2=i:Fl=2!GOSUB150!GOTO190 

150 PRINTe583,STRING$<3fl,32);;pRIMTe617,STRING$(30,32){!PRINTe71 

1," "ItRETURN 

190 FD=3THENTB=6!PB=6:BN=16 

199 ' 

200 F0RA=1T0PB 

210 C=RND(28) :FA*(C)=""THEN210a.SEP»(A)=A$(C) JA»(C)="":fe(T:FOR 
A=1T0TB 

220 C=RM)(28):iFA*(C)=""THEN220aSET«(A)=A$(C)!A$(C)=""JGOSUB30fl 

o{«)a!PRiNTM3,G$(D);:PRiNTeo,"scofiE:";:pRiNT8ii,"TRS-8o:";;pRi 

NTe27,"YOU!";:PRINTei72,"TILES!"j:PRINTe213,"TRS-80:";:PRINTe307 
, "YOUt " ; !FD>IPRINTe371 , "YARD J " } 

225 PRINTei92,"LAST PLAYED:";:PRINTe563,"TRS-80:";!PRINTe627,"YO 
U:"J!PRINTe718,"CHAIN LENGTH:";{PRINTe812,"GA«E; "GT"PTS"5 
230 GOSlB1100:FORA=lTOPB{PRINTeD(A),MID*(P*(A),2,l)}:PRINTeO(A)+ 
61,RIGHT$(P$(A),l);:fCXT:PRINTe951,"< BffltS"JtPRINTe330," 
"!:PRINTe312," ";:PRINTe512,STRING«(16,32)}JPRINTe662," 



";;pRiNTe726, 



";:ONDGOTO235,231,260 



231 FZ2=lPRINTe586,"Y0UR TUf»l TO SET "|;FORA=lTO1500:fE)a!PL 
=2:GOT03flO 

232 FZ2=2PRINTe586,"MY TURN TO SET "J!FI»A=lT01500:fe(T!PL= 
1:GOT0300 

235 A3=7:PRINTe586, "HIGHEST DOUBLE STARTS"! :GOTO280 

260 A3=l!PRINTe536,"Lffl£ST DOUBLE STARTS"! 

280 A3=A3-i:F0RA=lT0Pe!A2«=STR*(ABS(A3))!A2$=MID«(A2$,2,l)!IFMID 

$(P*(A),2,1)=A2*ANDRIGHT»(P$(A),1)=A2$H=ABS(A3):HM=1:GOT0288 

285 F( (A3=0)i(D=1) )+( (A3=-6>x(D=3) )THEN288aKNE)(TA!GOTO280 

TIBS IFD=1THENA3=7ELSEFD=3A3=1 

290 A3=A3-1;F0RW=1T0TB!A2»=STR»(ABS(A3))JA2»=MID«(A2»,2,1)!IFMID 
»(T$(W),2,l)=A2tAM)RIGHT«(T*(W),l)=A2*T=ABS(A3):TR=i:G0T0296 

295 F( (A3=0 )i(D=1) )+( (A3=-6)i(D=3) )THEN9000ELSENE)(TtGOTO290 

296 GOSUB91OO!PRINT0586,""! :IFD=1IF(H>T)+(TR=0)THEM.=H:PRINT"YOU 
'RE HIGH WITH "H"/"H!:PRINTe636,"SET"!!PL=2!GOTO900ELSEL=T!PRINT 
"I HAVE A "T"/"T" "!:PRINTI?572,"SET"!:PL=l!C(T)=C(T)-25a]T 
O900 

297 FD=3IF((H>T))ii(TR=l))+((l#t=0)i(TR=l))THENL=T:PRINT"I HAVE A 
"T"/"T" "!:n=n+2!C(T)=C(T)-2:GOSUB1100:PRINTe572,"SET"!:P 
L=1:GOT0900ELSEIFHM=1L=H:PRINT"YOU'RE low with a "H"/"H!!TP=TP+2 
!GCBUB1100!PRINTe636,"SET"!:PL=2!GOTO900 

299 REM PRINTei28,""i!F0RJ=lT0TB:PRINn*(J)" "i:NE)(T:PRINT" 
"!'T0 SEE CfflfVTER PLAY ITS DOMINOES FACE IP, REMOVE REM 



Lines 300-392! Asks placer what he would like to pla^, 
validates the pla^, and deternines where it will be placed. 



300 Q1=0:DB=0!GOSUB1100!GOSUB1300JF((TB=0)+(P8=0))+( (06=1)1(07= 

1) )THEN1200aSEPRINT8586,STRING$(23,32) ! !IFPL=lTro)PRINTe80,X*! : 

PRINTe91,Xl$!!GOTO500ELSEPRINTe91,X$!!PRINTM0,Xl$!!PRINTe70'»,"O 

pnONS!"! 

303 PRINTe715,"PLAY («) 0R"!}PRINTe73fl,"PASS (P) "itlF ( 

D>l)i((BN;^2)+(O=3))i(BE=0)PRINTe730,"ORAW (D) "', 

continued on next page 
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continued from previous page 

305 Q6=0;PRINTe320, "PLAYED ";;PRINTe381,"? / ?"| 

310 A»=INKEY«;FAt=""T}£N310aSEIFA$="P"TfCNIFD>lANDeN>2ANDBE=0P 

RINTesaSt'TOU MUST ORAH";!GOTO310ELSE380 

312 FA$="D"IF(EN=0)+(BE=l)PRINTe584,"SORRY, YOU CAN'T"} JGOTO310 
315 IFA$="D"IFD=lTHOPRINTe5aS,"N0T IN THIS GAME"!:GOTG310aSEIF 
(D=2)i(BN<3)PRINTe586,"x YARD IS FROZEN i";;GOTO310ELSE390 
320 IFASC(A$)<18ORASC(A$)>51THEN310 
322 PRINTe381,A$J 

325 B»=INKEY$;iFB$=""THEN325aSEIFASC(B«)<180RASC(B«)>51T»CN325 
330 C$=A*+e*tO*=RIGHT$(C$,l)+LEFT»(C$,l):F(«A=lT0Pe!Y»=«ID$(P$(A 
),2,l):F»=RIGHT«(P$(A),l)!E*=Y$+F$.'IF(E$=C»)+(Ei=0»)TfCN335ELSEN 
EXT5PRINTe586,"Y0U DON'T HAVE THAT 0NE";tGOTO305 

335 PRINTe636,A»"-"B$" ";!PRINTe388,B$!!IF(RT=LT)+(GS=l)TroG39E 
LSEIF((VAL(A$)=LT)i(W^(B»)=RT))+((VAL(A$)=RT)i(Wl(B«)=LT))THEN 
PRINTe701," AT WHICH END, PLfASE, L OR R ? "J!P0KE15885 

,76:PCKE15899,82ELSE339 

338 Z*=INKEY$!IFZt=""THEN338ELSEP0KE15885,32:P0KE15899,32;iFZ»=" 
L"TI£NL=RT'.GOT0900ELSEIFZ$="R"THEM.=lTtGQT0950ELSE338 

339 PRINTe388,B$;:FD=2IFPL=2IFZ2=lFGS=lGS=0!L=MAL(A«):CH=-i:Wt 
=1!Z2=2:GOT0900 

340 IFVAL(A$)=L^^eL=VAL(B♦) !GOTO900ELSEIFVAl.(A$)=RTTHENL=VAL(B 
$):GOT0950 

350 IFVAL(B$)=LnHEM.=VAL(A$>:GOTO900aSEIFVAL(B*)=RnHENL=VAL(A 

♦):GOT0950 

360 PRINTe5aS,"Y0U CAN'T MATCH IT "!!GOTO305 

380 Q6=l!PRINTe636,"PASS";!PL=l!BE=0:iFD=3IFEW>0TfCNQ6=0 

385 GOT03flO 

390 BN=eN-l!PB=fe+ltPRINT(?(536,"DftAH";!IFD=^=l 

392 C=RND(Z8):iFA»(C)=""THEN392ELS£P«(PB)=A*(C)!A$(C)=""!A=PB!PR 

INTeD(A),MID»(P»(A),2,l)!!PRINTeO(A)+61,KIGHT*(P«(A),l);!GOTO300 



Lines 500-540! Computer's pl3S» like hunan's above. 



500 O7=0!PRINTe320," ";:PRINTe384," "JtPRMeZOI.STRING 
i(35,32) ; :ffD=2IFGS=lIFZ2=2Z2=l !GS=0!HA=1 :VH?ND(6)+1 !L=VAL(MID$( 
T*(H) ,2,1) ) :S1=VAL(RIGKT»(T$(H) ,1) ) !PL=i:G0SUB98fl JGOTO900 

501 F(D=3)i(DB=0)THEN600 

502 F0RW=1T0TB:S=VAL(RIGHT$(T$(H),1)) 

503 FVAL(MID$(Tt(W),2,l))=LTIFC(S)>lT>Bl=S:Sl=LT:GOSUe980!GOTQ 
900ELSa=S!Ql=i:Sl=LT;H141 

504 NEXT 

505 F0RH=1T0TB 

506 s=wil(right»(t$(h),1)) 

507 ifval(mid$(t$(h),2,1))=rtfc(s)>1thenl=s:s1=rt!gosub980!goto 
950elsel=s:qi=z'.si=rt;hi=h 

508 fCXT 

509 F0R«=1T0TB 

510 S=VAL(MID$(T*(H),2,1)) 

511 FVAL(RIGHT$(T$(H),l))=LTFC(S)>lTtB«.=S!Sl=LT!GOSUB980!GOTO 

900ELsa=s:Qi=i:si=LT:Hi=« 

512 NEXT 

513 F0RM=1T0TB 

514 S=VAL(MID$(T»(H),2,1)) 

515 Fy«.<RIGHT»(T»(H),l)>=RTFC(S)>lTHENL=S:Sl=RT!GOSUB980!GOTC 
950asa=S:Ql=2!Sl=RT!Hl=« 

516 WXT 

517 IFQ100THENM=«i:GOSUB980!FQl=lTte(900ELSE950 



518 F((BN<3)x(DO3))+(D=l)+(BE=l)+(B^0)THEN530aS£PRINTe572,"D 
RAH"|:PRINTe586,"I'LL DRAW FROM THE YAR0";:BN=BN-r.TB=TB+i:iFD=3 
BE=1 

519 c=r«)(28) :fa»(c)=""then519elsef0ra=lt0tb:ft»<a)=""ttcnt»(a 
)=a$(C)elsenext:t»(tb)=a$(C):a=tb 

520 A$(C)="":GOS(JB3000:FORA=1TOZOOO;NEXT!GOT0299 
530 Q7=1!PRINTK72,"PASS"|!PRINTK86,"I'LL HAVE TO PASS";:BE=0!P 
L=2:FQRA=1T02000!NEXT:IFD=3IFBN>OTHENQ7=0 
40 GOTO300 



600 d«$=stri(lt)+str*(rt):md$=str$(rt)+str»(lt);forh=itotb:ft»( 
h)=o««then61oels0£xt 

605 FCRH=1TOTB!IR»(H)=«D$TH£N620ELSENEXT!GOT(B02 
610 L=VAL(RIGHT«DM$,1));S1=LT!GOSUB980;GOT0900 
620 L=VAL(MID»(MD»,2,1))!S1=LT:GOSUB980!GOT0900 



900 BE=0!Pa!E15690,32:CH=CH+l!LT=L!PRINTe266," "JlPOKEl 

5694,32!PRINTe394," "}:IFL=10RL=30RL=5THENGOSUB1000ELSE 

FLOOGOSUBIOIO 

902 GOSUB1510:LD=0 

903 FHA=1HA=0!L=VAL(B$){S1=L:GOT0950 
905 IFDe=lFPL=lG0SUB981 



910 IFDB=lTHEN950ELSE96fl 

950 BE=0!Pa<E15710,32!CH=CH+i:RT=L!PRINTK78," 



";:pokei 



5706,32!PRINTe406," "!:iFL=10RL=3t)RL=5THENGOSUB1040aSE 

FLOOGOSUB1050 

955 GOSUB1510:RO=0 

960 GOSUB1500:A4=A!IFPL=lTHENPL=2:FORAl=lTO2000!fEXT:TB=TB-i:GOT 

0299ELSEFPL=2F0RA2=lT07;F0RAl=lT0125!NEXT!PRINTeD(A4),MID»(P$(A 

4) ,2,1) I !PRINTe0(A4)+64,RIGHT»(P$(A4) ,1) ,• !F0RAl=lT0125rMEXT:PRIN 

TeD(A4)," "!!PRINTeD(A4)+64," ";:NEXT!P$(A4)="" 

962 A3=fliFORA=lTQPE!IFP«(A)=""THEh«CXT:Pe=f8-i:PL=l!GOTO300ELSEA 

3=A3+l!Pl*(A3)=P*(A)!fCXT:P$(Pe)="" 



965 FORA=lTOF'e:P$(A)=Pl»(A);i€XT:FORA=lT[FB!PRINT0DCA),MID$(P$(A 
),2,l);!PRINT8D<A)+64,RIGHT«(P$(A),l);:NEXT!PRINTeD(A-l)," 
!:PRINTeD(A-l)+64," ";!PL=l!PB=PE-l!GOTO300 

980 A»=MID*(T»(W),2,l):B$=RIGHT»(T«(W),l)tF'RINTe586,"I'LL PLAY T 
HE "A$" / "B$;;PRINTe572,A»"-"B*" "I 

981 T«(W)=""!F0RA=lT0TB:iFT$(A)=""TfCNF0RA3=AT0TB;T$(A3)=T»(A3+l 
)!NEXT:Ti(A3+l)=""ELSENEXT 

982 IFDB=0FA»=e«Tf£NC(L)=C(L)-2ELSEC(L)=C(L)-l!C(Sl)=C(Sl)-l 
984 RETURN 



Lines 1000-1070: Bone drawing routines. Lines 1000-1030 are 
for the left square ori the screeri, lines 1040-1070 are for 
the right. The first lire of each routine is called via a 
GOSUB if the nunber of dots to be display (L) is wid, 
other-wise the secorid line of the routine is called. 



1000 P0KE15694,G:FL=1RETURN 

1010 Pa<E15626,G:P0KE15762,G:FL<4RETURN 

1020 POKE15634,G:POKE15754,G:IFL06RETURN 

1030 POKE15630,G!POKE15758,G:POKE15694,3Z:RETURN 

1040 POKE15706,G:FL=1RET«») 

1050 POKE15638,G!POKE15774,G;IFL<4RETURN 

1060 POKE15646,G:POKE15766,G;FL06RETURN 

1070 POKE15642,G:POKE15770,G:Pa<E15706,32;RETURN 



Lines 1100-1110' Update data on the video screen. 
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noil PRMe21,TT;:PRINTe31,P;:PRINTK51,TB!:PRINTe315,Pe; SPRINT 

eZA'JfCH; ;iFD>lPRINTe379,BN; 

1103 FD=2IFBN<3PnKE15738,12!P0KE157t2,12 

1105 IF(D6=l)+(GS=l)PRINTe7«1,ZZ; 

1110 RETURN 



Lines 1200-1295; End of hand routines. Handles end-of-hand 
scoring) 



1200 ST=0:SP=0!FORA=OTOTB:ST=ST+VAL(HID$(T»(A),2,1))+V<1(RIGHT$( 
T»M),1))!»EXT:F0RA=1T0P8:SP=SP+VAL(MIM(P»(A),2,1))+W1(RIGHT»( 

p»(A),i)):NE3a 

1205 PRINTeSO ,X1*; :PRINTe91 ,X1»; ;Pa<E15738,32;P0KE15712,32!PRINT 
8586, "n IWNDPLAY OVER i«";:PRINTe70'»,STRING$(10,32);:PRINTe320, 

";:pRiNTe38i," ";:fora=ito2500jnext 

1207 IFD=3IFTB=flTHE)fRBrTre86,"I GET 1 POINT FOR GOING OUT";m= 

n+iELSEiFFt(=0THEf«a}rre5as,"You get i point for going out";:tp= 
p+i 

1210 IFD=3THEN1290ELSEIFTB=flTHENn=TT+SP:GO=lELSEIFPe=0THENTP=TP 
+ST } G0=2ELSEIFST>SPTHEJrrP=TP+ ( ST-ff • ) ! G0=3ELSEIFSP>Snf£Nn=n+ ( S 
P-ST)IGO='»ELSEPRINTe580,"DRAHN HAND - HE BOTH HAVE"SP"PIPS";!GO 
TO1290 



1220 GOSUB110fl:PRINTre8fl,"";:ONGOGOT0123fl, 1210, 1250, 1260 
1230 PRINT"I WIN THE H»0 - HA HA ";:GOT01290 

1210 print'l guess you win the wnd "nprintwh,'! have"st"pip 
s";;gotoi290 

1250 PRIMT"Y0U HA^t"SP"PIPS AND I HA(€"ST"PIPS"|:PRINTe6'M,"Y0UR 
COUNT IS LONER THAN MINE" ;tPRINTe708, "YOU WIN THE HAND";!G0T012 
90 



1260 PRINT"! mJE"5V'PTPS AND YOU HAVE"SP"PIPS";:PRINTe6'M,"MY C 
OUNT IS LIMR THAN YOURS";!PRINTe708,"I WIN TIC HWB"; 
1290 GOSUB1100:FORA=lTO999:NEXT:GOSUei300:PRINTe320,"TO DEAL";!P 
RINTe381,"PRESS"!tPRINTM18,"EMTER";!PRINTe636," ";:PRINTe572 



";:printk66," 



"!:PRINTe330," 



■ItPRINTK 



91," "J{IFD=2GS=1 

1291 PRINTe278," "|!PRINTe312," ";:PRINTei06," 



1292 A$=INKEY» !FA$=""THEN1292aSEIFASC(A$)=13THENST=0 :F0RA=896T 
0936;PRINTeA," ";;PRINTeA+61," ";:NEXT:SP=0:Q7=0!O6=0:PRINTe580, 
STRING$(37,32) I :PRINTe611, STRING* (35, 32) ', :FiaNTe708,STRING*(35,3 

2);:PRiNTe320," "CPRMens," ";:print8381," "; 

1295 ffASC(A*)O13THEN1292ELSEPRINTe590,"i SHUFFLING i"5:FI]RA=1T 
O20!P*(A)="":T»(A)=""}NEXT:FORA=flTO6:C(A)=0!NEXT:POKE15738,32;PO 
KE15712,32!G0T015 



Lines 1300-1350! Check for end of gate. 



1300 FTT>=GTTHENH»="I":GOT01350ELSEIFTP>=GTTHENH*="YOU"{GOT0135 


1310 RETURN 

1350 FORA=lT07:FOI®=lT0300:NEXT;PRINTe708," "',',f 

ORB=1T0300:NEXT!PRINTB708,H*" WN THE HATCH"! !NEXT!PRINTK56,"T0 
PLAY" {SPRINTe320, "AGAIN "J!PRINTe381,"PRESS"}!PRINTM18,"ENTER" 
;iINPUTAi!RUN 

1100 F0RK=lT0999!iCXT:PRINTe586,"2 POINT STARTER 
JiRETURN 



Lines 1500-1505! If playing Bergen, this checks to see if 
the tile placed is a double, if it is set the proper flag 
(LD or RD>. 

1500 FD<:>3THD«ETUWCLSEFA*=8»IRT=VWL(A»)THEMJ)=l!P0KE1569fl,6 

8aSEFRT=VAL(B*)RD=l!POKE15710,68 

1505 RETURN 



Lines 1510-1550! If playing Bergen, these lines check for 
double and triple headers. 



1510 FD030RDB=1THEN151^SEFRT=LTTHEN1520 
1515 RETURN 

1520 FPL=lFLD=10RRD=10RA»=e*Tt£NTT=n+3!H»="TRIPLE"!GOT01550a 
SEn=n+2!H»="D0UBLE" :GOT01550 

1530 FPL=2FLD=lORRD=lORA$=B*THENTP=TP+3!H*="TRFLE"!GOTO1550a 
SETP=P+2 ! H*="DOUBLE" ! GOT01550 

1550 PRINTe701,STRING*(35,32)!!FORA5=lT05!FORA6=lT0300!MEXT!PRIN 
Te586,H»" HEADER "!!FORA6=lTO300!NEXT!PRINTe586," 
"iiNEXTlRETURN 



Line 2000! Subroutine to draw graphic display. 

2000 CLS!F0ftA=0TO768STEP61!P0KEA+P+11,191!NEXT!FCRA=0TO63!POKEA+ 
P+832,13i:NEXT!F0RA=8T032!P0KEA+P+192,176!P0KEA+P+118,131!fEXT!F 
ORA=256T0381SFP61 ! POKEA+P+8 , 191 ! POKEA+P+20 , 191 !P0KEA+P+32, 191 ! N 



EXTiRETURN 

3000 C(VAL(HID«(T$(A),2,l)))=C(VAL(ltID*(T*(A),2,l)))+l!C(VAL(RIG 

HT«(T*(A),1)))=C(VAL(RIGHT»(T$(A),1)))+1!RETURN 



Line 5000! Progra« delay subroutine. 



5000 PRINTe960,"i HH ENTER i "!!INPUTA»! RETURN 



Lines 9000-9050! Displays an error nessage if neither player 
has a double in either Block or Bergen gawe. 



9000 FDO2FTR=0ANDHH=0PRINTe586,"N0 DOUBLE IN PLAY - REDEAL"?! 
FQRA=lTO2000!«XT!GOSUei50!PRINTe896,STRING»(30,32)i!PRINTe960,S 
TRING*(30,32);!GOTO15 
9050 G0T0296 



Lines 9100-9500! Subroutine to check for a proper deal. 



9100 FD=1FH>TTHENIF«ID»(P*(A),2,1)ORIGHT$(P*(A),1)GOT09500 
9150 FD=lFT>HIF«ID*(T*(H),2,l)ORia<T$(Ti(H),l)THEN9500 
9160 F0=3FH<TFMID*(P«(A),2,l)ORIGHT«(P»(A),l)G0T09500 
9170 FD=3FT<HF«ID$(T»(H),2,1)ORIGHT«(T$(H),1)GOT09500 
9200 RETURN 

9500 PRINTe586,"C«»>UTER ERROR ~ REDEAL"! !FORA=lT0200fl!)OTJGOS 
ljei50!PRINT8896,STRING$(30,32)!!PRINTe960,STRING$(30,32)!!GOTO15 
' POSSIBLE ONLY ON SET PLAY AND IS RARE 
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A REMARKABLE MAGAZINE 




GPeaMve 
computing 

"The beat covered by Creative Computing 
is one of the most important, explosive and 
fast-changing."— Alvin Toffler 



David Ahl, Founder and 
Publisher of Creative Computing 



You might think the term "creative com- 
puting" is a contradiction. How can some- 
thing as precise and logical as electronic 
computing possibly be creative? We think 
it can be. Consider the way computers are 
being used to create special effects in 
movies— image generation, coloring and 
computer-driven cameras and props. Or an 
electronic "sketchpad" for your home 
computer that adds animation, coloring 
and shading at your direction. How about a 
computer simulation of an invasion of killer 
bees with you trying to find a way of keep- 
ing them under control? 

Beyond Our Dreams 

Computers are not creative per se. But 
the way in which they are used can be 
highly creative and imaginative. Five years 
ago when Creative Computing magazine 
first billed itself as "The number 1 maga- 
zine of computer applications and soft- 
ware," we had no idea how far that idea 
would take us. Today, these applications 
are becoming so broad, so all- 
encompassing that the computer field will 
soon include virtually everything! 

In light of this generality, we take "appli- 
cation" to mean whatever can be done with 
computers, ought to be done with comput- 
ers or might be done with computers. That 
is the meat of Creative Computing. 

Alvin Toffler, author of Future Shocl< and 
The Third Wave says, "I read Creative Com- 
puting not only for information about how 
to make the most of my own equipment but 
to keep an eye on how the whole field is 
emerging. 

Creative Computing, the company as 
well as the magazine, is uniquely light- 
hearted but also seriously interested in all 
aspects of computing. Ours is the maga- 
zine of software, graphics, games and sim- 
ulations for beginners and relaxing profes- 
sionals. We try to present the new and im- 
portant ideas of the field in a way that a 1 4- 
yearoldoraCobol programmer can under- 



stand them. Things like text editing, social 
simulations, control of household devices, 
animation and graphics, and communica- 
tions networks. 

Understandable Yet Challenging 

As the premier magazine for beginners, it 
is our solemn responsibility to make what 
we publish comprehensible to the new- 
comer. That does not mean easy; our 
readers like to be challenged. It means 
providing the reader who has no prepar- 
ation with every possible means to seize 
the subject matter and make it his own. 

However, we don't want the experts in 
our audience to be bored. So we try to 
publish articles of interest to beginnersand 
experts at the same time. Ideally, we would 
like every piece to have instructional or 
informative content— and some depth- 
even when communicated humorously or 
playfully. Thus, our favorite kind of piece is 
acessible to the beginner, theoretically 
non-trivial, interesting on more than one 
level, and perhaps even humorous. 

David Gerrold of Star Trek fame says. 
"Creaf;Ve Computing with its unpreten- 
tious, down-to-earth lucidity encourages 
the computer user to have fun. Creative 
Computing makes it possible for me to 
learn basic programming skills and use the 
computer better than any other source. 

Hard-hitting Evaluations 

At Creative Computing we obtain new 
computer systems, peripherals, and soft- 
ware as soon as they are announced. We 
put them through their paces in our Soft- 
ware Development Center and also in the 
environmentfor which they are intended — 
home, business, laboratory, or school. 

Our evaluations are unbiased and accur- 
ate. Wecompared word processing printers 
and found two losers among highly pro- 
moted makes. Conversely, we found one 
computer had far more than its advertised 
capability. Of 16 educational packages, 



only seven offered solid learning value. 

When we say unbiased reviews we mean 
it. More than once, our honesty has cost us 
an advertiser— temporarily. But we feel 
that our first obligation is to our readers and 
that editorial excellence and integrity are 
our highest goals. 

Karl Zinn at the University of Michigan 
feels we are meeting these goals when he 
writes. "Creative Computing consistently 
provides value in articles, product reviews 
and systems comparisons ... in a magazine 
that is fun to read." 

Order Today 

To order your subscription to Creative 
Computing, send $20 for one year (12 
issues), $37 for two years (24 issues) or $53 
for three years (36 issues). If you prefer, 
call our toll-free number, 800-631-8112 (in 
NJ 201 -540-0445) to put your subscription 
on your MasterCard, Visa or American Ex- 
press card. Canadian and other foreign 
surface subscriptions are $29 per year, and 
must be prepaid. We guarantee that you 
will be completely satisfied or we will re- 
fund the entire amount of your subscrip- 
tion. 

Join over 80,000 subscribers like Ann 
Lewin, Director of the Capital Children's 
Museum who says. "I am very much im- 
pressed with Creative Computing. It is 
helping to demystify the computer. Its arti- 
cles are helpful, humorous and humane. 
The world needs Creaf/ve Computing. 

GPeative 

Attn: Elyse 

P.O. Box 789-M 

Morristown. NJ 07960 

Toll-free 800-631-8112 

(In NJ 201-540-0445) 
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The story behind the two best selling 
computer games books in the world. 

Computer 
Gaines 



by David H.Ahl 

Everybody likes games. Children like tic 
tac toe. Gamblers like blackjack. Trekkies 
like Star Trek. Almost everyone has a favor- 
ite game or two. 

It Started In 1971 

Ten years ago when I was at Digital 
Equipment Corp. (DEC), we wanted a pain- 
less way to show reluctant educators that 
computers weren't scary or difficult to use. 
Games and simulations seemed like a good 
method. 



So I put out a call to all our customers to 
send us their best computer games. The 
response was overwhelming. I got 21 ver- 
sions of blackjack, 15 of nim and 12 of 
battleship. 

From this enormous outpouring I se- 
lected the 90 best games and added 1 1 that 
I had written myself for a total of 101. I 
edited these Into a book called 101 Basic 
Computer Games which was published by 
DEC. It still is. 

When I left DEC in 1 974 I asked for the 
rights to print the book independently. 
They agreed as long as the name was 
changed. 







Introduction 


Hi-Lo 






The Basic Language 


High 1-0 


Contents of Basic Computer Games (right) 


Conversion to Other 


Hockey 


and More Basic Computer Games (below). 


Basics 


Horserace 






Acey Ducey 


Hurkle 






Amazing 


Kinema 






Animal 


King 






Awari 


Letter 


Artillery-3 
Baccarat 


Life Expectancy 
Lissajous 


Bagels 
Banner 


Life 

Life For Two 


Bible Quiz 


Magic Square 


Basketball 


Literature Quiz 


Big 6 


IVIan-Eating Rabbit 


Batnum 


Love 


Binary 


tvlaneuvers 


Battle 


Lunar LEM Rocket 


Blackbox 


l\/lasfermind 


Blackjack 


Master Mind 


Bobstones 


Masterbagels 


Bombardment 


Math Dice 


Bocce 


Matpuzzle 


Bombs Away 


Mugwump 


Boga II 
Bumbrun 


Maze, 
Millionaire 


Bounce 
Bowling 


Name 
NIcomachus 


Bridge-It 


Minotaur 


Boxing 


Nim 


Camel 


Motorcycle Jump 


Bug 


Number 


Chase 


Nomad 


Bullfight 


One Check 


Chuck-A-Luck 


Not One 


Bullseye 


Orbit 


Close Encounters 


Obstacle 


Bunny 


Pizza 


Column 


Octrix 


Buzzword 


Poetry 


Concentration 


Pasart 


Calendar 


Poker 


Condot 


Pasart2 


Change 


Queen 


Convoy 


Pinball 


Checkers 


Reverse 


Corral 


Rabbit Chase 


Chemist 


Rock, Scissors, Paper 


Countdown 


Roadrace 


Chief 


Roulette 


Cup 


Rotate 


Chomp 


Russian Roulette 


Dealer's Ctioice 


Safe 


Civil War 


Salvo 


Deepspace 


Scales 


Combat 


Sine Wave 


Defuse 


Schmoo 


Craps 


Slalom 


Dodgem 


Seabattle 


Cube 


Slots 


Doors 


Seawar 


Depth Charge 


Splat 


Drag 
Dr. Z 


Shoot 


Diamond 


Stars 


Smash 


Dice 


Stock Market 


Eliza 


Strike 9 


Digits 


Super Star Trek 


Father 


Tennis 


Even Wms 


Synonym 


Flip 


Tickertape 


Flip Flop 


Target 


Four In A Row 


TV Plot 


Football 


3-D Plot 


Geowar 


Twonky 


Fur Trader 


3-D Tic-Tac-Toe 


Grand Prix 


Two-to-Ten 


Golf 


Tic Tac toe 


Guess-It 


UFO 


Gomoko 


Tower 


ICBM 


Under & Over. 


Guess 


Train 


Inkblot 


Van Gam 


Gunner 


Trap 


Joust 


Warfish 


Hammurabi 


23 Matches 


Jumping Balls 


Wford Search Puzzle 


Hangman 


War 


Keno 


Wumpus 1 


Hello 


Weekday 


L Game 


Wumpus 2 


Hexapawn 


Word 



Converted to Microsoft Basic 

The games in the original book were in 
many different dialects of Basic. So Steve 
North and I converted all the games to 
standard h^icrosoft Basic, expanded the 
descriptions and published the book under 
the new name Basic Computer Games. 

Over the next three years, people sent in 
improved versions of many of the games 
along with scores of new ones. So in 1 979, 
we totally revised and corrected Basic 
Computer Games and published a com- 
pletely new companion volume of 84 ad- 
ditional games called More Basic Com- 
puter Games. This edition is available in 
both Microsoft Basic and TRS-80 Basic for 
owners of the TRS-80 computer. 

Today Basic Computer Games is in its 
fifth printing and More Basic Computer 
Games is in its second. Combined sales are 
over one half million copies making them 
the best selling pair of books in recrea- 
tional computing by a wide margin. There 
are many imitators, but all offer a fraction of 
the number of games and cost far more. 

The games in these books include classic 
board games like checkers. They include 
challenging simulation games like Camel 
(get across the desert on your camel) and 
Super Star Trek. There are number games 
like Guess My Number, Stars and Battle of 
Numbers. You'll find gambling games like 
blackjack, keno, and poker. All told there 
are 185 different games in these two 
books. 

Whether you're just getting started with 
computers or a proficient programmer, 
you'll find something of interest. You'll find 
15-line games and 400-line games and 
everything in between. 

The value offered by these books is out- 
standing. Every other publisher has raised 
the price of their books yet these sell for 
the same price as they did in 1 974. 

IMoneyback Guarantee 

Examine one or both of these books and 
key some games into your computer. If 
you're not completely satisfied we'll refund 
the full purchase price plus your return 
postage. 

Basic Computer Games costs only $7.50 
and More Basic Computer Games just 
$7.95 for either the Microsoft or TRS-80 
edition (please specify your choice on your 
order). Both books together are $15. Send 
payment plus $2.00 shipping and handling 
to Creative Computing Press, Morris 
Plains, NJ 07950. Visa, MasterCard and 
American Express orders should include 
card number and expiration date. Charge 
card orders may also be called in toll-free to 
800-631-81 12 (in NJ 201-540-0445). 

Order today to turn your computer into 
the best game player on the block. 

GPeative 
GompatiR^ 

Morris Plains, NJ 07950 
Toll-free 800-631-8112 

(In NJ 201-540-0445) 
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APPLESOFT CHAINING f 



by Murray Summers 

So you know all there is to 
know about chaining in Applesoft, 
right? It's simple. You just 
'BLOAD CHAIN, A520' and then 
'CALL 520"XXXX" '. Easy, 
huh? Well, as long as you can 
tolerate about a five to ten second 
delay each time a chaining 
operation is carried out then you 
really do know all you need to 
know about that subject. But if 
you want to make sure that the 
overall operation of a multi- 
module program is as fast as 
possible, or if you just want to 
learn a little about how Apple 
works, then read on. 

First of all we should define 
exactly what is done when you 
chain one program to another. 
Simply put, chaining two programs 
gives them common variables. This 
means that all simple, array, and 
string variables are passed from 
one program to the next. This is 
frequently done when one needs 
lots of data space and can 
conveniently break a program into 
distinct pieces. In order to 
understand how a chain operates, 
we must first examine how Apple 
handles variables. 

There are three kinds of 
variables that can be processed by 
Apple (not counting the distinction 
between integer and FP variables): 
simple (i.e. not subscripted), array 
(i.e. subscripted), and string. Each 
of these variables is stored in 
different ways by Apple, as 
described and illustrated in the 
Applesoft manual on pages 127 
and 137. It is a slight 
oversimplification but the general 
scheme is that simple variables are 
stored just above the end of the 
program, followed by arrays, free 
space, and finally strings. As more 
and more strings are defined, 
string storage grows down from 
the top of memory, and free space 
contracts commensurately. When 
strings collide with arrays, Apple 
"goes away" for what seems an 
interminable amount of time to 
"houseclean". If there are no old 
strings to be deleted, thereby 
freeing up more free space, then 
an OUT OF MEMORY error is 
generated with predictably fatal 
results. The important thing to 

S4 



remember is that the order of 
memory allocation, from bottom 
to top, is program, then simple 
variables, arrays, free space, and 
strings. Whew! 

Now, let's suppose you want to 
load another program which uses 
the same variables as the previous 
program. It's fairly simple as long 
as the second program, and all 
subsequent chainees, are all smaller 
than the original, because all you 
have to do is load the new 
program and then expand the free 
space until the descending simples 
bounce off the top of the program. 
The more general case would be to 
chain two programs, regardless of 
their relative size. For this, we first 
eliminate the free space altogether, 
by smushing the simples and arrays 
up to the bottom of strings. Then 
load the next program. Of course, 
if there's not enough space below 
the simples to load the program 
you get the famihar "OUT 
OF...." reminder. Once the new 
program has been loaded, the free 
space is expanded as in the first 
case above. 

Having covered chaining we can 
now get back to the original point 
— how do we avoid loading the 
chain routine each time we chain? 
There are two ways to do this. One 
of these is the quick and dirty way 
and the other is much more 
elegant. I will deal with the quick 
and dirty first. 

There is one prerequisite for 
quick and dirty chaining, and that 
is that the first module must be the 
largest of all of the modules. This 
is not too much of a restriction, 
since the first command of the first 
module could reset LOMEM so 
that it is effectively the largest by 
occupying the most memory (e.g. a 
program that ends at decimal 
location 8(XX) could be made 
effectively 8K larger by resetting 
LOMEM to 16000 with the 
LOMEM: 16000 command). At any 
rate, all you need to do to chain 
this program to any number of 
smaller programs is to PEEK out 
the pointers that define the 
variable space ($69 to $70) (105 to 
112, decimal), store them 
someplace safe, load the next 
program, restore the above 
pointers to their previous values, 
and voila! You have just chained 
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the two programs. The hard part is 
coming up with someplace safe in 
memory to store the pointers. 
There are two places that serve 
very nicely for this purpose. The 
first of these is at the very end of 
the keyboard buffer area ($2D0 to 
$2FF) (720 to 767, decimal). The 
second place is in the peripheral 
slot scratchpad area, as described 
on page 83 in the Apple II 
Reference Manual, better known 
as the "New Red Book". I will use 
the keyboard buffer area in an 
example: 

PROGRAM #1 

10 DIM A$(100),A(25,25), 
B<7o(20) 

20 DEF FNX(X) = C t X + 256 : 
C = 27 

30 REM ALL OF THE ABOVE 
STUFF IS NONSENSE 
WHICH WAS JUST STUCK 
IN TO SEEM IMPORTANT 

40 REM HERE COMES THE 
GOOD STUFF 

50 POKE 720, PEEK (105) : 
POKE 721, PEEK (106): 
POKE 722, PEEK (107) : 
POKE 723, PEEK (108) : 
POKE 724, PEEK (109) : 
POKE 725, PEEK (110) : 
POKE 726, PEEK (111) : 
POKE 727, PEEK (112) : 

60 REM WE HAVE JUST 
STORED AWAY THE 
NECESSARY POINTERS 

70 REM AND NOW FOR THE 
KICKER 

80 PRINT CHR$(4)"RUN 
PROGRAM #2" 

PROGRAM #2 

10 POKE 105, PEEK (720) : 
POKE 106, PEEK (721) 
POKE 107, PEEK (722) 
POKE 108, PEEK (723) 
POKE 109, PEEK (724) 
POKE 110, PEEK (725) 
POKE 111, PEEK (726) 
POKE 112, PEEK (727) 

15 REM NOW PUT IT ALL 
BACK 

20 REM THAT'S ALL, 
FFFFOLKS! 

30 REM WE HAVE JUST 
DONE THE QUICK 
DIRTY CHAIN. 

40 PRINT C : REM JUST TO 
VERIFY THAT THE 
VARIABLES GOT PASSED 



That's about all there is to a 
quick and dirty chain. There is one 
very important detail! Any strings 
that are defined within quotes in 
the program, (like A$ = 
"ABCD") will not be passed 
correctly using this technique. To 
correct this problem, every string 
so defined must be processed as 
follows: 

A$ = MID$(A$,1) 

Now all of the variables will be 
passed correctly, and we have 
avoided accessing the disk 
altogether. Note that the above fix 
does not need to be done with 
strings which were defined using 
the "CHR$ ( " command. 

You might be tempted to ask 
what are the drawbacks of using 
the quick and dirty chain 
technique, and you should well be 
concerned, because it was too easy. 
There is one important 
disadvantage, and that is that your 
free space is only as big as your 
largest program allows it to be. If 
the free space is very small, and 
the programs involve lots of string 
manipulations, you might think 
that your Apple had gone to 
Bermuda because it will spend a 
great deal of time just doing 
housecleaning, since the string 
storage space can't grow too much 
before it crashes into the array 
storage, even though there is lots 
of empty room above your 
program that is not being used 
because you had to reset LOMEM! 
If speed of execution is your major 
concern, then you may be 
dissatisfied with the quick and 
dirty chain. 

All of these problems are solved 
by the next technique I shall 
describe, which I feel is a more 
elegant approach to chaining. It, 
however, is not used without 
paying the price of about 1.3K 
worth of overhead. The concept of 
its use is pretty simple. 

A modified chain routine is 
loaded just below DOS and 
HIMEM is reset under it. In this 
location the chain routine is 
completely safe, and need not be 
reloaded unless the disk is 
rebooted, or unless the system 
crashes. The modification is a 
short machine code prefix which 
calls the monitor move subroutine 
so that it is relocated to its normal 
running location and then jumps 
to the relocated address for a 
conventional chain. I think that 



this is an elegant way to do the 
chain. It requires no longer to run 
than the program being chained 
requires to load, and is virtually 
foolproof. All that is necessary to 
do is to implement the following 
code by entering lines 10000 
through 10090 into your program, 
and construct a modified CHAIN 
routine. 



PROGRAM #3 



10000 HI = PEEK (115) + 256 

* PEEK (116) 
10010 H2 = HI - 464 
10020 PRINT CHR$(4) 

"BLOAD CHAINl, A"H2 
10030 LN = H2 - INT(H2/256) 

* 256 : HN = INT 
(H2/256) 

10040 LO = HI - INT (H 1/256) 

* 256 : HO = INT 
(H 1/256) 

10050 POKE 115, LN : POKE 

116, HN : POKE III, LN : 

POKE 112, HN 
10055 RETURN 
10060 POKE 60, LN + 8 : 

POKE 61, HN 
10070 POKE 62, LO : POKE 

63, HO 
10080 POKE 66, 8 : POKE 67, 2 
10090 RETURN 



To make the modified CHAIN 
routine, insert the DOS MASTER 
and type the following commands: 

BLOAD CHAIN, A2008 
POKE 2000, 160 
POKE 2001, 
POKE 2002, 32 
POKE 2003, 44 
POKE 2004, 254 
POKE 2005, 76 
POKE 2006, 8 
POKE 2007, 2 

Then insert an initiaUzed disk 
and type "BSAVE CHAINl, 
A2000, L464". 



Now, let's examine how all this 
mystery works! The first two 
pokes load the 6502's "Y" register 
with a zero (because, just because). 
The next three pokes are "JSR 
FE2C" which causes a jump to a 
subroutine in the monitor which 
moves memory located between the 
address contained in location 60 
and 61 (high byte last, of course) 
and 62 and 63, to the address 
beginning at the location contained 
in 66 and 67. The final three pokes 
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are "JMp 208" which causes 
execution to begin with the routine 
at $208 (our old friend decimal 
location 520!). In other words, we 
just use the monitor to relocate the 
chain routine from someplace up 
high in memory down to where it 
needs to be run. But what happens 
if we need to store strings or 
something up high in memory? 
Does the chain routine get 
clobbered? Well, it would unless 
we did something to protect it, and 
that is what the pokes in program 
#3 are doing, among other things. 
Line 10000 reconstructs HIMEM 
and the next line calculates where 
HIMEM should be reset to if the 
chain routine is loaded right at the 
top of memory (just under DOS, 
of course). Then Hne 10020 loads 
the modified chain routine right 
where we calculated (H2). Lines 
10030 and 10040 are to break the 
old HIMEM (HI) and the new 
HIMEM (H2) into their low and 
high bytes, respectively. These 
values are then poked into the 
correct locations for the monitor 
memory move routine to find 
them. The reason that Hne 10060 
adds 8 to LN is so that the 
memory move routine will skip 
over the first 8 bytes of the chain 
routine (i.e. the eight pokes done 
to modify the chain routine to 
begin with). These eight bytes 
don't need to be moved since they 
are not part of the chaining 
algorithm (I think we are about to 
get there!). 

Now all we need to do to chain 
is to include lines 10000 to 10090 
in any program (the hne #'s can be 
changed as necessary), and 
initialize things at the beginning of 
the first program with a: 

'GOSUB 10000' 

When you are ready to chain all 
that is necessary is: 

'GOSUB 10060 : CALL H2"XXX" 

All subsequent programs need 
have only lines 10060 to 10090 to 
correctly chain to other modules. 
Note the syntax of the CALL in 
the above lines. There is to be no 
space between the 'H2' and the 
first quotation mark. 

It will be up to you to decide 
which routine better suits your 
purposes. Do you require speed or 
elegance? Personally, I'll take the^^ 
slow Mercedes every time. f^ 
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The Atari* Connection. 




ADDITIONAL 
RS232 PORTS 



ATARI H10 
RECORDER $69.00 



TS€JHPffiir>€ 

6 South St .Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 



ATARI B2S PRINTER $769.00 



Hardware 



Software 



on 
Disk 



ATARI 400 Computer System, 8K RAM . . . $439.00 (#36-400) 
ATARI 400 Computer System, 16K RAM . . $499.00 (#36-40i) 
ATARI 800 Computer System, 16K RAM . . $829.00 (#36-800) 
ATARI 800 Computer System, 32K RAM . . $949.00 (#36-80i) 
ATARI 800 Computer System, 48K RAM . $101 9.00 (#36-802) 

ATARI 410 Program Recorder $69.00 (#36-803) 

ATARI 810 Disk Drive $499.00 (#36 810) 

ATARI 820 Printer (40-col) $369.00 (#36-820) 

ATARI 825 Printer (80-col) $769.00 (#36-825) 

ATARI 830 Acoustic Modem $179.00 (#36-830) 

ATARI 850 Interface $179.00 (#36-850) 

16K RAM Module for the ATARI $1 19.50 (#36-854) 

32K RAM Module for the ATARI $189.00 (#36 855) 

MACROTRONICS Printer lnterface(36-pln) $69.95 (#36-936) 
MACROTRONICS Printer Interface (40-pin) $69.95 (#36-940) 

ATARI Joystick Controllers $19.95 (#36-3O05) 

ATARI Paddle Controllers $19.95 (#36-3004) 

ATARI CX-70 Ligtit Pen $74-95 (#36-70) 

Dust Cover for ATARI 400 $7.95 (#16 40) 

Dust Cover for ATARI 800 $7.95 (#i6-03) 



ROM programs 

Basketball $39.95 (#36-bask) 

Chess $39.95 (#36-chs) 

Editor/Assembler $59.95 (#36-ase) 

Educational System Master $29.95 (#36-esmc) 

Music Composer $59.95 (#36-muse) 

Star Raiders $59.95 (#36-strds) 

Super Breakout $39.95 {»36-supb) 

Tele-Link $24.95 (#36-tel) 

3D Tic-Tac-Toe $39.95 {#36-3Ttt) 

Video Easel $39.95 (#36-video 



VISICALC from Personal Softwfare $199.95 (#36-vicl) 



Software 



on 
Cassette 



* 



A 



Basic Algebra* $29.95 (#36-alge) 

Basic Electricity* $29-95 (#36-elec) 

Basic Psychology* $29.95 (#36-psych) 

Basic Sociology* $29.95 (#36-soc) 

Biorhythms $14.95(#36-bior) 

Blackjack $14.95 (#36-black) 

Business Communications* $29.95 (#36-bus) 

Effective Writing* $29.95 (#36-v*/rit) 

Great Classics* $29.95 (#36-clas) 

Hangman $14.95 (#36-hang) 

Intro to Programming in BASIC $19.95 (#36-ipb) 

Kingdom $14.95 (#36-king) 

Physics* $29.95 (mb-phys) 

Principles of Accounting* $29.95 (#36-acct) 

Principles of Economics* $29.95 (#36-econ) 

Spelling* $29.95 (#36-spell) 

Supervisory Skills* $29.95 (#36-supsk) 

3-Dimensional Graphics Package $29.95 (#36-3d-g) 

U.S. Government* $29.95 (#36-usg) 

U.S. History* $29.95 (#36-ush) 

World History* $29.95 (#36-wrld) 

*Requires Educational System Master Cartridge 

TERMS: Prices and specifications are suject to change. HARDSIDE ac- 
cepts VISA & MASTERCARD. Certified checks and Money Orders. Personal 
checKs accepted (takes 3 weeks to clear). HARDSIDE pays all shipping 
charges (within the 48 states) on all PREPAID orders over $100.00. On all 
orders under $100 a S2.50 handling charge must be added. COD orders ac- 
cepted (orders over $250 require 25% deposit), there Is a $5.00 handling 
charge. UPS Blue Label and Air Freight available at extra cost. 



Ik^r/i rtl® A Warner Communications Company^J 
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Ciller our world of 
fflicrocompulin9... 

Discover our exciting world of microcomputing by reading SoftSide Magazine, the 

monthly that helps you learn to use your S-80, Apple or Atari more effectively and 

enjoyably. 

In each issue you'll find helpful programming hints, follow regular columns by such 

well-known authors as Scott Adams, and explore the wide range of software and 

hardware for your particular needs. 

The focus of SoftSide is on lots of entertaining software — great games, 

simulations, graphics and educational programs all ready to type right into your 

computer, each one fully documented and carefully explained. Each month you'll 

find at least nine programs — one reader told us that he estimates the value of the 

software in a single issue of SoftSide at $18 — the price of a 12-issue subscription! 

Order your subscription to SoftSide today and become a part of our world of 

microcomputing! 
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CALL OUR TOLL FREE HOTLINE 

1-800-258-1790 

(IN NH CALL 673-5144) 





Here's my ticket to SoftSide's world of microcomputing. 
12 issues for only $18 ( a savings of 40% over cover price) 



D Check enclosed D Bill Me D Bill my Visa D MasterCard 
Card # Expiration date 



I own a(n) 
Name 



. computer 



Address 
City 



State 



.Zip 



SoftSide Publications 6 South Street Milford, NH 03055 
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SKUNK 



by John Daoust 

"Skunk" is an Apple program 
written in Integer BASIC which 
requires at least 16K of RAM. 

"Skunk" is based on a dice 
game that's been around for many 
years. The game is played by two 
to four players, one of whom 
(which?) can be the Apple itself. 
The object is simple: Reach a 
predetermined point total before 
the others do. The problem is that 
if you roll a pair of ones (skunks) 
you must start all over again. A 
single skunk merely wipes out your 
score for a single round, rather 
than for the entire game. 

Only the most daring win, but 
those who are too daring lose 
everything... How far can you 
push your luck? Load up the 
program and find out. 
Variables: 
PL: Rolling force. 
PLRn$: Players' names. 
RSC: Total for roll. 
TSC(X): Total score for player. 
TR: Rnd for Apple to quit. 
MK: High score to beat. 
SC: Total for game. 
PNT$: Statement to type. 
A$, T, O: General purpose. 
PLR: Player number. 
DL: Dice location. 
AP: Apple's turn. 
X: Turn counter. 
Dl: Dice# 1 value. 
D2: Dice # 2 value. 
PP: Pitch of sound. 
DD: Duration of sound. 
UU: Rnd sketching of dice. 
R: For/Next for rolling dice. 
D: Draw dice. 
K: For/Next for drawing dice. 



20 REM 'SKIMC BY vMHN C. DAOJST 

21 REM 17-0CT-79 

Initialization and set-up. 

35 DIM PLRli(20),PLR2i(20),PLR3$ 

(Zfl),PLR«(20) 
10 DIM A»(5),TSC(1),Pm"»(100) 
15 GOSUB 22100 
50 TEXT : CALL -936 
70 FOR T=l TO i:TSC(T)=fl: NEXT 

T 
100 VIAE: lO; TAB 17:PNT*="SKU)«(" 

: GOSUB 16G20 
105 TAB 6:PNT»="PR0GRAfWED BY JfM C 

. DAOUST": GOSUB 16020 




150 FOR A=l TO 600: fEXT A 

ZOO PNT*="HHAT SCORE 00 YOU WISH FOR 

GAME "! GOSUB 16020 
210 INPUT SC 
230 Pffr*="HO« fttNY PLAYERS (2 TO 1) 

ARE TJtRE"t GOSUB 16020 
210 INPUT PLR 

215 IF flR>1 OR PLR<2 THEN 230 
260 PNT»="ENTER FIRST PLAYERS NAME " 

: GOSUB 16020 
265 INPUT PLR1$; IF LEN(PLR1»)> 

9 THEN PLR1$=PLR1$(1,9) 
270 PNT*="ENTER SECOfO PLAYERS NA^E 

": GOSUB 16020 
275 INPUT PLR2$: IF LEN(PLR2*)> 

9 THEN PLRZi=PLR'2$(l,9) 
280 IF PLR=2 THEN GOTO 100 
290 PNT»="ENTER THIRD PLAYERS NAf£ " 

; GOSUB 16020 
300 INPUT PLR3»l IF LEN(PLR3$)> 

9 THEN PLR3$=PLR3$(1,9) 
310 IF PLR=3 THEN GOTO 100 
320 PNT$="ENTER FOURTH PLAYERS NWC 

": GOSUE: 16020 
330 INPUT PLR1»: IF LEN(PLR1$)> 

9 THEN PLR1«=PLR1»(1,9) 
100 GR 

150 CALL -936 
155 X=1:RSC=0!G=1 
160 GOSUB 21000 

Main control loop. 

500 ap=o:g=i 

550 IF X=l THEN GOSUB 10000 

560 IF X=2 THEN GOSUB 10100 

570 IF X=3 THEN GOSUB 10200 

580 IF X=1 THEN GOSUB 10300 

620 GOSUE; 13000 

700 IF AP=1 THEN GOSUB 11000 

720 IF AP=1 THEN GOTO 835 

800 PL= POL (0)/25 

810 POKE 31,22*. MTAB 23 

815 TAB 20 J PRINT "ROLLING FOi«:E= " 
.pLj,, „ 

830 IF PEEK (-16287)<=127 THEN 
GOTO 800 



835 IF PL=0 THEN 1100 

850 GOSie 12000 

860 RSC=RSC+D1+D2 

880 F Dl=l OR D2=l THEN RSC=0 

890 IF Dl=l AND D2=l THEN RSC=TSC( 

X) 
892 PP=50;DO=127 
900 IF Dl=l OR D2=l THEN GOSUB 

22000 
905 PP=30:DD=255 
910 IF 01=1 AND D2=l THEN GOSUEi 

22000 
915 IF Dl=l AND D2=l AND TSC(X) 

=0 THEN GOTO 1300 
920 IF 01=1 AND D2=l THEN G=-l 
930 IF Dl=l AND D2=l THEN GOTO 



958 PCKE 31,23 

959 yiAB 21 : PRINT 

960 yiAB 2i: PRINT "TOTAL FOR ROLL= 
"5RSC5" SCORE WILL BE "5 
TSC(X)+RSC; 

970 IF Dl=l OR D2=l THEN GOTO 1300 

980 IF OlOl AND D201 THEN GOTO 

1180 
990 GOTO 1300 

1100 POKE 31,21 

1101 PP=15!DD=5 

1102 FOR T=l TO RSC 

1103 IF RSC=0 THEN GOTO 1180 
1105 TSC(X)=TSC(X)+G 

1107 FOR 0=1 TO 15: NEXT 

1108 UTAB 22; TAB l+dOxCX-D): PRINT 

II II 

1109 GOSUB 22000 

1110 FOR 0=1 TO 15: NEXT 

1113 UTAB 22: TAB 1+(10x(X-l)): PRINT 

TSC(X) 
1115 NEXT T 
1120 G=l 
1300 X=X+1 

1310 F X>PLR THEN X=l 
1315 FOR T=l TO 1200 : NEXT T 

1320 IF TSC(X)>=SC THEN GOSUE: HOflO 

1321 POKE 50,63 

1322 POKE 31,23: VTAB 21 

1323 PRINT " NEXT PLAYERS TURN 

II* 
t 

1321 POKE 50,255 

1330 RSC=0 

1180 FOR T=l TO 500 : NEXT T 

1500 GOTO 500 

2000 END 



Check to see if the Apple is 
playing. 



58 



SoflSidc, April 1981 



10000 IF "APF1E"=PLR1* THEN AP=1 


12220 Ca.0R=15 


Draw player Marker. 


10030 RETURN 


12225 FOR Y=lfl TO 30: HLIN 22,35 AT 




10100 IF "APFlE"=PLR2t THEN AP=1 


Y: NEXT Y 


13000 C0L0R=1 


10130 RETURN 


12230 RETURN 


13020 HLIN 0,39 AT 39 


10200 IF "AFfLE"=flR3» THEN AP=1 




13030 COL0R=13 


10230 RETURN 


Drau skurlt.. 


13050 IF X=l THEN HLIN 3,5 AT 39 


10300 IF "AFflE"=FlR'»$ THEN AP=1 




13060 F X=2 THEN HLIN 13,15 AT 39 


10330 [€TURN 


12250 COLOR=0 


13070 F X=3 TfCN HLIN 23,25 AT 39 




12255 PLOT 0L+3,15J ULIN 19,20 AT 


13080 IF X=1 THEN HLIN 33,35 AT 39 


Apple's rolling logic. 


OL+3: PLOT DL+3,26: MLIN 15 


13100 C0L0R=1 




,16 AT DL+i: PLOT OL+1,19! VLIN 


13300 RETURN 


UflOO PL= RND (9)+l 


21,26 AT DL+1 


11001 i1K=0 

11010 TR= M) (1) 


12260 VLIN 13,26 AT DL+5} VLIN 11 
,26 AT DL+6: VLIN 23,25 AT 


Arfioijrice winner. 


11015 IF RSC=0 THEN GOTO 11065 


OL+7 


11000 TEXT : CALL -936 


11020 FOR T=l TO 4 


12265 MLIN 16,21 AT DLtS: PLOT DL+ 


11010 HJ=0 


11025 IF TSC(T)>=SC THEN GOTO 11032 


9,15! PLOT DLt9,23: PLOT DL+ 


1 1 If .1 V 1 lu^U 

11020 FOR T=l TO 1 


11030 NEXT T 


10,15 




A ^ \i\JV 1 \b*#\ 1 1 




11030 IF HJ<TSC(T) Tl€N GOTO 11200 


11031 GOTO 11050 


12267 PLOT OL+1,23 


J M i\^ n vir-v/T Y 


11032 F MK<=TSC<T) THEN MK=TSC(T) 


12270 VLIN 17,22 AT DL+IOJ PLOT DL+ 


11050 NEXT T 


11035 GOTO 11030 


11,16 


11100 PNT»="THE RESULTS OF THIS GAME 


11050 F TSC(X)+RSC<=«K m hKOO 


12275 COLOR-2; PLOT DL-H1,11 


F SKU»( are:": gosub 16020 


THEN GOTO 11065 


12280 RETURN 


11110 PRINT ; PRINT 


11055 IF MKOO AND TSC(X)+RSC>MK THEN 
F1=0 


Draw two spot. 


11120 PRINT PLRUJ" = ";TSC(1) 
11125 PRINT ; PRINT PLR2$;" = " 


12300 COLOR=0 


;tsc(2) 


11057 F HK=0 AND TSC(X)tRSC>=SC THEN 

F1=0 
11060 IF TR=0 THEN PL=0 


12315 ULIN 13,15 AT DL+2: VLIN 25 


11127 F PLR=2 THEN GOTO 11150 


,27 AT DL+10 
12320 VLIN 13,15 AT DLtSt VLIN 25 


11130 PRINT : PRINT PLR3»;" = " 
|TSC(3) 


11065 POKE 31,22; VTAB 23 


,27 AT DL+11 


11135 IF PLR=3 THEN GOTO 11150 


11067 TAB 20 : PRINT "ROLLING FUKUi= " 


12330 RETURN 


11110 PRINT ; PRINT PLR1$;" = " 


•PL;,, M 




;TSC(1) 


11070 RETURN 


Draw three spot. 


11150 PRINT ; PRINT 

11160 PRINT "THE WINNER HAS THE HIGH S 


Roll dice. 


12350 COLOR=0 


CORE OF ";TSC(HN) 




12360 VLIN 13,15 AT DLtlO: VLIN 19 


11165 F MN=1 AND PLR1$="APF1J:" THEN 


12000 FOR R=l TO PL 


,21 AT DL+6; VLIN 25,27 AT 


GOTO 11180 


12050 UU= m (2) 


DL+2 


11170 IF MN=2 AND PLR2*="APPLE" THEN 


12060 Dl= RND (6)+l!D2= RND (6)+l 


12365 VLIN 13,15 AT DL+li; VLIN 19 


GOTO 11180 


12070 FOR K=l TO 2 


,21 AT DL+7; VLIN 25,27 AT 


11175 F MN=3 AND PLR3$="APF1E" THEN 


12071 PP=1!DD=3: GOSie 22000 


DL+3 


GOTO 11180 


12075 IF UU=0 THEN 12085 


12380 RETURN 


11177 IF hN=1 AND PLR1»="APPLE" THEN 


1Z077 D=02:DL=22; G0SU8 12220 




GOTO 11180 


12080 GOTO 12100 


Draw four spot. 


11179 GOTO 11181 


12085 d=oi;dl=4: Gosue 12200 




11180 F= RND (D; if F=0 THEN GOSUE: 


12100 IF D=l THEN GOSUE 12250 


12100 GOSUEi 12300; GOSIB 12350 


17000 


12110 IF D=2 THEN GOSUB 12300 


12110 C0L0R=15 


11181 IF F=l THEN GOSUE 17100 


12120 IF D=3 THEN GOSUB 12350 


12120 VLIN 19,21 AT DL+6: VLIN 19 


11182 IF F=2 THEN GOSIB 17200 


12130 IF 0=1 THEN G0SU8 12100 


,21 AT DL+7 


11183 F F=3 THEN GOSUB 17300 


12110 IF D=5 THEN GOSUB 12150 


12130 RETURN 


11181 PRINT :PNT$="lfflULD YOU CARE TO P 


12150 F 0=6 THEN GOSUB 12500 




LAY AGAIN"; GOSUB 16020: D^JT 


12155 GOTO 12185 


Draw five spot. 


A$ 


12170 NEXT K 




11186 IF "Y"=A»(1,1) THEN GOTO 50 


12175 NEXT R 


12150 GOSUE; 12300; GOSUB 12350 


11190 END 


12180 RETURN 


12160 RETURN 


11200 MJ=TSC(T):iW=T; GOTO 11050 


12185 F UU=1 THEN GOTO 12192 






12187 IF UU=0 THEN UU=1 


Draw six spot. 


Typing routine. 


12189 GOTO 12170 






12192 UU=0: GOTO 12170 


12500 GOSLB 12100 


16020 PP=3;DD=3 

16050 FOR T=l TO LEN(PNT») 


Orsu dice. 


12510 COLOR=0 

12520 VLIN 19,21 AT DL+2: VLIN 19 


16060 IF T= LEN(PNT$) THEN GOTO 16080 


12200 C0L0R=15 


,21 AT DL+10 


16070 PRINT PNT$(T,T); 


12205 FOR Y=lfl TO 30: HLIN 1,17 AT 


12530 VLIN 19,21 AT DL+3; VLIN 19 


16075 GOTO 16090 


Y! NEXT Y 


,21 AT DL+11 


16080 PRINT PNT$(T,T) 


12210 RETURN 


12550 RETURN 


16090 GOSUE 22000 continued on page 76 
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STRATEGY STRIKE 




by David Steenson 

Atari translation by Rich Bouchard 

"Strategy Strike" is an Atari 
program requiring at least 16K of 
RAM. 

Atari "Strategy Strilce" is a 
translation of the Apple "Strategy 
Strike" published last month. It is 
a game of logic and memory, 
where players try to manipulate 
their forces to defeat their 
opponent. 

INSTRUCTIONS 

The object of the game is to 
move militarily ranked pieces 
across a battle board while trying 
to capture the opposing player's 
flag. Each player starts with forty 
pieces, consisting of: 

# OF 

PIECES NAME RANK 

1 Marshal 1 

1 General 2 

2 Colonel 3 

3 Major 4 

4 Captain 5 
4 Lieutenant 6 

4 Sergeant 7 

5 Miner 8 
8 Scout 9 
1 Spy 10 

6 Bomb UNMOVEABLE 
1 Flag UNMOVEABLE 

The above pieces are in order of 
military rank, the Marshal being 
the highest ranked, and the Spy 
being the lowest. However, the spy 
may remove the Marshal from the 
board only if it is attacking the 
Marshal. The Bombs are immobile 
pieces that will remove any piece 
attempting to "strike" it, except 
for the Miner, which can dismantle 
and remove the Bomb. 

The game is played on a ten-by- 
ten board which will be fully 
displayed throughout the game. 
Player I sets up pieces on the top 
four rows of the board, and player 
2 sets up pieces on the bottom four 
rows. 

SETUP 

When the game starts, it will 
allow each player to set up his or 
her forces. To place any of the 
moveable pieces except the Spy on 
the board, simply type the rank of 
the desired piece and the square 
marked by a circle on the screen 
will then contain that piece. To 
place a Spy, Bomb or Flag, type S, 
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B, or F respectively. After the 
initial setup you will be allowed to 
make any needed changes. To 
make a change, type in the 
coordinates of two different pieces, 
and the position of those pieces 
will be switched on the board. To 
enter the coordinate of a piece, 
type its column (the letter 
underneath the square) and its row 
(the number to the left of the 
square). As in the Apple version, 
the Delete key may be used to 
correct mistakes while entering 
coordinates, and no Return is 
needed. 

MOVEMENT 

I). Pieces may move only one 
space at a time, and there are no 
diagonal moves. To move, type the 
coordinates of the piece to be 
moved, and the coordinates of the 
square the piece is to be moved to. 

2). Pieces may not move onto 
the lakes in the center of the 
board. 

3). Two pieces may not occupy 
the same space at one time, and 
pieces may not be jumped. 

4). The Flag and Bomb pieces 
may not be moved. 

A player's pieces are revealed 
only when it is that player's turn. 
The opposing player should not be 
facing the screen when an 
opponent is moving. Only during 
the combat phase should both 
players be looking at the screen. 

STRIKE OR ATTACK RULES 

To strike an opponent, move 
one of your pieces into an 
adjoining square containing an 
opponent's piece. Combat will 
then commence, with the losing 
piece being removed from the 
board and replaced by the victor. 
If both pieces have the same rank, 
both are removed. If the flag is 
attacked, the attacker wins the 
games. 

VARIABLES 

A: Temporary variable for a piece 

to be printed. 

Al: Piece occupying "from" 

square. 

A2: Piece occupying "to" square. 

A(X,P*10 + Y): Contains player 

P's pieces at coordinates X,Y. 

BOMB: Numerical designation for 

bomb (12). 
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FLAG: Numerical designation for 

flag (II). 

I: General loop variable. 

IN(I): Number of pieces of type I 

already entered. 

NU(I): Quota of pieces of type I. 

P: Player number (0 or I). 

PASS: Logical variable. If I then 

skip turn. 

R: Argument of GET#1,R used to 

get a character from the keyboard. 

Rl, R2: Coordinates of "from" 

square. 

R3, R4: Coordinates of "to" 

square. 

RR: Numerical value of the 

character contained in R. 

Sl$, S2$: Strings used to draw 

board. 

SPY: Numerical value of Spy (10). 

X, Y: Horizontal and vertical 

coordinates. 

Z: Time delay and color loop 

variable. 

DOCUMENTATION 

Line 25: Clear the right-hand 
part of the screen where messages 
are displayed. 

Lines 30-48: Subroutine to input 
move coordinates. 

Lines 100-320: Initialization. 

Lines 150-260: Routine to draw 
pictures of each piece. 

These hues included in the listing 
contain symbols for what should 
be typed in. The following table 
explains what should be typed in 
place of these symbols. 

Symbol Meaning 

b Blank 

d ESC followed by CTRL = 

(looks like down arrow) 
1 ESC followed by CTRL + 

(looks like left arrow) 
= SHIFTed equal sign 

(appears as vertical line) 

Any capital letter should be 
typed with the CTRL key held 
down, except on line 240, where 
the capital letters should be typed 
as normal letters. In addition, the 
four underUned characters in line 
260 should be typed in reverse 
video as well. Thank James Garon 
and his "Checker Challenge" 
(October 1980 SoftSide) for most 
of these graphic figures. 

Lines 400-560: Set up each 
player's pieces. 



Lines 600-700: Main playing 
loop. Begins a new turn. 

Lines 710-830: If player P has 
attacked. . . 

Lines 900-940: End of game 
routine, after flag is captured. 

Lines 1000-1060: Subroutine to 
draw playing board. 

Lines 2000-2040: Subroutine to 
print player P's pieces on board. 

Lines 2500-2540: Subroutine to 
print an individual piece on the 
board. 

Lines 3000-3040: Subroutine to 
cover player P's pieces on the 
board with blanks. 

Lines 4000-4030: Subroutine to 
switch pieces during setup. 

Lines 5000-5160: Attack 
subroutine. Uses lines 150-260 to 



draw each piece, then carries out 
the attack. 

Lines 6000-6040: Subroutine to 
display bomb flash. 

Line 7000: Dummy Return 
statement where Apple sound 
routine was. 

Lines 8000-8020: Subroutine to 
play fanfare. 

When typing in Atari "Strategy 
Strike" , the following should be 
typed in reverse video: 

Line 46: "Y/N" 

Line 270: "STRATEGY 
STRIKE", excluding the spaces. 

Lines 910, 915, 5000, and 5015: 
Every string in a PRINT 
statement. 

Line 1010: Both character strings. 

Line 4010: "ILLEGAL MOVE!" 



3 OPEN *i,i,o,"k;" 

5 GOTO 100 

25 FOR T=fl TO IBiPOSIHCW 26,T:PRINT " 

";:^EXT t:return 

30 POKE 752,0!PASS=0:POSITION 26,2:PRI 
NT "(P TO PASS)";:P0SITI0N 26,3JPRINT 

"FROHt ";:get *i,r 

31 ff cn«(R)="p" then print "PASS";JP 

ASS=1:P0KE 752,1IRETURN 

32 PRINT CHR«(R)J:R1=R-65!F RKO OR R 
1>9 THEN PRINT a«»(253);!G0T0 30 

31 PosmoN 33,3JPRINT ","5:get #i,r:i 

F R'=126 THEN 30 

36 PRINT chr'$(R);;r2=r-18:f R2<o or r 

2>9 THEN PRINT CHR$( 253): GOTO 31 

38 PosmoN 28,i:print "to: ";:get *i, 

RJIF R=126 Tt€N 31 

10 PRINT CHR$(R)J!R3=R-65iIF R3<0 OR R 
3>9 THEN PRINT Off:$(253);!G0T0 38 
12 POSITION 33,i:print ","}:GET ♦l.RtI 
F R=126 TfCN 38 

H PRINT CHR$(R>;:R1=R-18Jff RKO OR R 
1>9 TVEH PRINT CHR*(253);;G0T0 12 

16 posintBJ 26,5:print "asm:i amr 
;:get *i,r!f cHR*(R>o"r mn so 

18 PRINT :P0KE 752,i:S0lM) 0,10,10,10: 

FOR T=l TO lfl:NEXT T:SOtM) 0,fl,0,0:RET 

URN 

100 GRAPHICS 0:DI« A(9,19),iW(12),W(l) 

,IN(12),Sl$(30),S2»(30),Ri(l),Q(l) 

110 fftj(i)=i:(ftj(2)=i:NU(3)=2:NU(i)=3:NU 
(5)=i:nu(6)=i:mj(7)=i;nu(8)=5:nu(9)=8: 

NU(lfl)=i:NU(ll)=i:NU(12)=6 

120 spy=io:flag=ii:bohb=12 

lis GOSIB 7000 
115 GOTO 270 

150 PRINT "bbEdlllfab=dlllbbX";:RETUI»l 
160 PRINT "QREcilllQRCdlllZRC"j:RETURN 
170 PRINT "(»EdnibRDdlllZRC";:RETUWI 

180 PRINT "tfcWdinZRSdinbbX'';:RETl)RN 
190 PRINT "QREdlllZREdlllZi«:"; {RETURN 

200 PRINT "tffiEdlllAREdlllZRC"} {RETURN 



210 PRINT "QREdlllbb=dlllbbX";:iCrURN 

220 PRINT "QREdlllARDdlUZRC"; {RETURN 
230 PRINT "QREdmZRDdIllZRC";:RETl«N 
210 PRINT "bSbdlllSPYdlllbSb";:fOJRN 
250 PRINT "ffl^dlllW?Cdm=bb";:RETURN 

260 PRINT "bFbdllll^lll!P";{RETURN 
262 PRINT {PRINT 

270 GRtfmcs o:posnioN 2,6:print " 

STRATEGY STRIK E"{POSin 
ON 12,8{PRINT "BY DAVID STEENSON" 

272 POSniON 6, 10 {PRINT "ATARI VERSION 
BY RICH BOUCHtfffl" 
280 GOSUB 8000 

290 FOR Y=0 TO 3{F0R X=0 TO 9{A(X,Y)=1 

{NEH x{iea Y 

292 FOR Y=1 TO 15{F0R X=0 TO 9{A(X,Y)= 
0{ffXT X{NEXT Y 

300 FOR Y=16 TO 19{F0R X=0 TO 9;A(X,Y) 

=i:next x{next y 

310 graphics oipqke 752,1{g0sub iddii 

320 FOR P=fl TO 1 {GOSUB 3000 {NEH P 
100 FOR P=fl TO 1:G0SUB 25{F0R 1=1 TO 1 
2{IN(I)=fl{NEXT I 

110 FOR Y=P«6 TO Px6+3{F0R X=0 TO 9 
120 GOSUe 2S{S0UND 0,0,0,0{POSniON 26 
,2{PRINT "PLAYER "{P+l{".";{POSITION 2 
6,3:PRINT "H^T PIECE DO"} 

125 POSITION 26,1{PRINT "YKJ HANT Bf", 
{POSinC»( 26,5{PRD<T "THIS POSITION"; { 
POSITION 26,6{PRINT "(1-9,S,B,F)"; 

130 POSmON Xx2+5,Yx2+2{PRINT a«$(20 

){POSniON Xi2+5,Yi2+2:GET *1,R{RR=R-1 

8 

HO IF Crt»(R)="S" TIEN RR=SPY 

150 IF CHR$(R)="B" THEN R=12{RR=B0HB 

160 F C«»(R)="F" TICN RRHFLAG 

170 ff RR<1 OR mil THEN 130 

180 F NU(RR)=IN(RR) TICN 130 
190 IN(RR)=IN(RR)+1 

500 POSniON Xi2+5,Yi2+2:PRINT C»»(R) 

• 

continued on next page 



AN ART 
STUDIO 

IN 48K 

TWO PROGRAMS 

BY MARK PELCZARSKI 

FROM 




Design shape tables with keystrokes or 

paddles. Also included are Applesoft 

Invaders and Slot Machine — colorful 

variations of well-known diversions whose 

graphics were created with this package. 

Save your graphics on disk and put them 

in your own programs. 

32K Applesoft, ROM Diskette $29.95 




CREATE 
3-DIMENSIONAL GRAPHICS! 



3-dimensional figures can be 
rotated, shifted, scaled, or 
distorted. Each figure can be saved 
on disk and later assembled Into 
larger figures, with each part 

capable of being manipulated. 
48K Applesoft ROM Diskette$29.95 




6 South St .Miltord. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 
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continued from previous page 

510 SOUND 0,R«)(0)ilOO+10, 10.10 

520 A(X,PxlO+Y)=RR 

530 t€XT r.VEXl YJSOM) 0,0,0,0 

510 GOSUB 25:PCKITI0N 26,2:F-RINT "ANY 
CHANGES?"; :Ft)SinON 24,3{PRINT "(Y OR 

N)";;gei n,R 

515 IF CHR$(R)<>"N" THEN GOSUB 1000JGO 
TO 510 

550 IF CHR*(R)<>"N" THEN GOSUB lOOOIGO 
TD 510 

560 GOSUB 3000:^EXT P 

600 P=0 

610 GOSUE: 25:P0Sni0N 26,2 

620 PRINT "PLAYER ";2-Pr', Y0U";;F'0SIT 
ION 26,3;PRINT "MUST GO AWAY"! 

630 POSniON 26,5:PRINT "FIAYER "JP+IJ 
", HIT"! {POSITION 26,6;F'RINT "RETURN T 

go.";:get *i,r:if roiss iveh m 

610 GOSUB 25:F'OSITION 26,0:F'RINT "PLAY 

ER ";p+i;;posiTiON 26,i:print " 

11* 

650 GOSUB 2000 

660 GOSUB 30!IF PASS=1 THEN 820 

670 Al=A(Rl,Pxl0+R2):A2=A(R'3,Pil0+R1) 

680 IF A1=0 OR A2O0 OR A1=E0MB OR Al= 
FLAG OR ABS(R1-R3)+ABS(R2-R1)>1 THEN 6 
60 

690 F (R3=2 OR R3=3 OR R3=6 OR R3=7) 

AND (R1=1 OR R1=5) THEN 660 

700 IF A(R3,(l-P)xlO+R1)=0 THEN 780 

710 A2=A(R3,(l-P)xlO+R1){G03U6 5000 
730 F A2=B0MB AND Al=8 THEN 770 
710 F A2=B0«B THEN 800 

750 F A1=A2 THEN POSITION R3x2+5,R1i2 
+2;PRINT Ctf»(160);;A(R3,(l-F')i;10+R1)= 
OiGOTO 800 

760 F NOT m<Al AM) NOT (A2=l Ai© 
A1=SPY)) THEN 770 

762 A(R1,(1-P)xl0+R2)=A2!A(R3,(1-P)!il0 
+R1)=0:POSITION R3i(2+5,R1x2+2JPRINT CH 
R$(160);:POSITION R1x2+5,R2i2+2 

761 A=A2:G0SUE; 2500:A(R1,Px10+R2)=0!GO 
TO 820 

770 A(R3, (l-P)!«10+R1)=0 

780 POSITION R3i2+5,R1x2+2!A=A(Rl,F'«10 
+R2):G0SUB 2500 

790 A(R3,PxlO+R1)=A(Rl,10xP+R2) 
800 A(R1,P«10+R2)=0 

810 POSniON Rlx2+5,R2x2+2:PRINT CHR«( 

160); 

820 FOR Z=l TO 1000:^01 Z;G0SUB 3000 



830 P=1-P:G0T0 610 
900 GOSUB 25 

910 POSniON 26,1!PRINT " PLAYER ";CH 

R$(P+i77);" ":posmoN 26,5:print " 

lit 

915 POSniON 26,6!PRINT " HAS HON! " 
» 

920 GOSUB 80oo:gosub 60oo:gosu& 80oo:g 

OSUB 6000 

930 FOR P=0 TO IIGOSUB 2000!fEXT P 

910 P(KmON 0,21:EM) 
1000 GRAPHICS 0:P(JI 752,1 

1010 si*="+-+-+-+-+-+-+-+-+-+-+";s2»=" 

I I I I I I I I I I III 
1015 PRINT 

1020 m 1=1 TO io;frint " ";si$!prin 
T " ";s2$;NE)a uprint " ";si» 

1030 FOR 1=0 TO 9;POSITI0N 3,Ii2+2;PRI 
NT I!:NE)a I 

1010 POSniON 5,22;PRINT "A B C D E F 
G H I J" 

1050 FCK Y=10 TO 12:P0SITI0N 9,Y;F'RINT 

"(((";;posiTioN i7,y:print "(((";!f£x 

T Y 

1060 RETURN 

2000 FOR Y=0 TO 9iF0R X=0 TO 9!S0UM) 

,110-Yi(10-X,10,10 

2010 A=A(X,Fti10+Y);F A=0 MH 2010 

2020 POSITION Xx2+5,Yx2+2 
2030 GOSUB 2500 

2010 NEXT x:next yjsouno o,o,o,o;reti« 

N 

2500 F A<10 then PRINT A; 
2510 IF A=SPY THEN PRINT "S"; 

2520 IF A=FLAG THEN PRINT "F"; 
2530 F A=B»B THEN PRINT "*'•; 
2510 RETURN 

3000 FOR Y=0 TO 9;F0R X=0 TO 9 
3010 F A(X,PxlO+Y>=0 THEN 3010 
3020 POSniON Xx2+5,Yi2+2;pRINT " "; 

3030 SOUND 0,XxlO+20,10,10 

3010 SOUND 0,0,0,0:NEXT X;fOT YiRETUR 

N 

1000 GOSl£ 25:G0SUB 30 

1010 IF A(Rl,PxlO+R2)=0 OR A(R3,PxlO+R 
1)=0 T)€N POSniON 26,5:PRINT "ILL£GAL 

mw£!";:for z=i to iooo:next z 

1011 F A(R1,P«10+R2)=0 or A(R3,Pi[10+R 
1)=0 TfEN 



1020 A=A(R1,Px10+R2);A(R1,Px10+R2)=A(R 
3,10xP+R1):A(R3,PxlO+R1)=A 

1030 GOSl£ 20oo:return 



5000 GOSUB 3000.'GOSUB 8000 :A=«(R1, PUD 
+R2)rP0Sin0N R1i2+5,R2i2+2:G0SIJB 2508 
:A=A(R3,(1-P)i10+R1) 

5005 POSniON R3x2+5,R1x2+2:G0SUB 2500 
5010 GOSUB 25JPOSniON 26,7:PRINT "PLA 
YER ";CHR«(178-f);": "JtPOSmON 26,8 
tPRINT "FACE SCREEN"} 

5015 POSITION 26,9:PRINT "FOR EMEMY " 

;!PosmoN 26,io:pkint "attack "; 

5020 FOR Z=l to 500!NEXT Z 

5030 POSmON 26,2+PilO!GOSUB IIO+AUI 
0;POSniON 26,2+(1-P)i10;GOSUB 110+A2i 
10 

5010 FOR z=i to 50o;next z 

5050 M(0)=0;H(1)=0:F A2=FLAG TJCN POP 

;goto 900 

5860 F (A1=SPY AND A2=l) OR (A2=eae 
m Al=8) THEN H(P)=1;G0T0 5110 
5070 F A2=8ae Tf€N H(1-P)=1;G0SUB 60 
OOJGOTO 5110 

5080 F A1=A2 THEN 5110 
5090 F A2<A1 TfCN W(l-P)=l 
5100 F A2>A1 T}€N H(P)=1 

5110 FOR 1=2 TO 1;F0R J=1 TO 5 
5120 F H(P)=0 TFEN POSHION 25+J,PxlO 
+i;PRINT " "JSOUND 0,RND(0)xlOO+150,6, 
11 

5125 FOR T=l TO 10!f£XT T;S01M) 0,0,0, 



5130 F H(1-P)=0 Tf€N POSIUON 25+J,(l 

-P)xlO+I!PRINT " ";;SOUND l,RND(0)ilOO 

+150,6,11 

5135 FOR T=l TO 10;fEXT TtSOUND 1,0,0, 



5110 NEXT j;(£XT I;F0R Z=1 TO 500:NEXT 

z 

5150 GOSUB 25 

5160 RETURN 

6000 FOR T=l TO 3!F0R Z=0 TO 15 

6010 SETCXOR 2,Z,11 

6020 SOUfffi INT(RND(0)x1),RND(0)xlOO+15 
0,12,12 

6030 fOT z;next T 

6010 FIK T=0 TO 3!S0UM) T,0,fl,0;iCXT T 
iSETCOLOR 2,9,1JRETURN 
7000 RETURN 

8000 RESTORE IFOR 1=1 TO 7;REM) Z1,Z2: 
SOUND 0,Zl,lfl,10:FQR T=l TO Z2/1:NEXT 

t:next I 

8010 data 96,50,72,50,57,50,18,100,57, 
50,18,200,0,0 _. 

8020 RETlffiN ^ 
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continued from page 44 

151 IFC=lTHDMD=/a)+lELSEIFC=2THENAG=AG+lELSEFC=3Tt£NAJ=AJ+lELS 

EIFC=1THeiA«=A«+lELSEIFC=5TteiAA=W^H 

1520 mWH 

Lines 1530-1560} ArHored nove verifiert 

1530 ' 

1510 FL=1THENAE=AE-1ELSEIFL=2T^€^WH=AH-1ELSEIFL=3T^CNAK=AK-1ELS 

EIR=1THENAN=flN-lELSEIFL=5THENAB=A£;-l 

1550 IFC=lTHENtf=AE+lELSEIFC=2THENAH=AH+lELSEIFC=3THENAK=AK+iaS 

EIFC=1THEhWN=AN+lELSEIFC=5THENAB=Ae+l 

1560 RETURN 

Lines 1570-1600! Airborne wove verifier. 

1570 ' 

1580 FL=lTHENAF=tf^-lELSEIFL=2THENAI=AI-lELSEIFL=3THENAL=AL-iaS 

EIFL=1THENAP=AP-lELSEIFL=5Tf€NAC=AC-l 

1590 FC=1THENAF=AF+1ELSEIFC=2THENAI=AI+1ELSEIFC=3THENAL=AL+1ELS 

EIFC=tTHENAP=AP+lELSEIFC=5THENAC=AC+l 

1600 RETURN 



Lines 1610-1630! Deternine enewy strategy! 



1610 ' 

1620 GOaJE:1170!GOSlB1610!EC=(ES)i(FT-FR)/(WT)!FGG>0THD£C=EC+ 

(ES-lxEC)x(GG/80) 

1630 EC=INT(EC)IRETURN 

Lines 1610-1650! Battleline strength tally. 



1610 ' 

1650 S(1)=8iAD+10xAE+6xAF:S(2)=8)«AG+10)«AH+6xAI:S(3)=8«AJ+10xAK+6 

xAL !S (1 )=8xAM+l OiAN+6iAf JRETURN 

Lines 1660-1860! Corps battles. 

1660 ' 

1670 MV=S(C)-EC!LS=0 

1680 FMV=20RMV=3THEM.=L-61 

1690 IFMV=-20RMV=-3THENL=L+61 

1700 FMV=10RMV=5THENL=L-61!ES=ES-8 

1710 FMV>5THENL=L-61!ES=ES-16 

1720 FW=-10RMV=-5THEM.=L+61!LS=1 

1730 FW<-5T}€M.=L+61!LS=2 

1710 IFLS=OTHENRETURN 
1750 A$="":FXO0THeW»=A»+STRING$(X,88) 
17A0 FT<>0THENA$=A$+STRING$(T,81) 
1770 FAO0THENA»=A$+STRING*(A,65) 
1780 LN=LEN(A»):FLN=0THENRETURN 
1790 FLN<LSTHENLS=LN 

1800 FORW=1TOLN!K$(W)=MID$(A$,H,1)!NEXTW 

1810 FOR«=1TOLS 

1820 R=RND(LN)JFK$(R)="/"THEN1820 

1830 FK$(R)="X"THENX=X-1 

1810 FKt(R)="T"TtENT=T-l 

1850 FK$(R)="A"Tra«=A-l 

1860 K$(R)='7"!fOTW!RETURN 

Lines 1870-1960! Eneny breakthrough. Displays a randon 
Message. 

continued on next page 




The key to 
your TRS-80 



Learning Level II 



by David A. Lien 

Written by David A. Lien, the author of your Level I User's Manual, LEARNING LEVEL II picks 
right up vi/here the Level I Manual leaves off. It also^supplles the changes needed to make the 
Level 1 Manual compatible with your Level M TRS-80*. 

LEARNING LEVEL II covers all Level II BASIC beyond Level I, plus much more. It shows you 
how to use the Editor, explains what the many error mesages are really saying, and loads you thru 
conversion of Level I programs to Level II. 

Dual cassettes, printer, the expansion Interface with clock and other features are explained In 
the same easy-to-tearn style that made the^ Level I Manual famous. LEARNING LEVEL II was 
created specifically for your Level II TRS-80*! 

$15.95 

'TRS.80 Is a registered trademark of Radio Stiack and Randy Corporations. 
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continued from previous page 

1870 ' 

IffiO PRINTeO,"THE ENEMY HAS BROKEN THROUGH YOUR LINES!" 

1890 R=RND(6) 

1900 IFR=lPRINTe64,"Y0U ARE KILLED BY A GRENADE!" 

1910 IFR=2PRINTe61,"Y0U ARE TAKEN PRISOfER At® USED FOR PROPAGAN 

DA BROADCASTS!" 

1920 IFR=3PRINTe61,"THE C0f«1AI«)ER OF NWAC mom TO HAVE YOU 

SHOT!" 

1930 FR=tPRINTI»61,"THEY AiS RIPFtlG YOUR REMAINING FORCES TO SHR 

EDS!" 

1910 IFR=5PKINTe61,"Y0U REPORT YOURSELF 'MISSING IN ACTION' AND 

HEAD FOR THE HILLS!" 

1950 FR=6F'RINTe6t,"Y0U SUSPECT TROUBLE!" 

1940 GOSUB1130:RETURN 



Lines 1970-20705 Total Defeat. Your forces have been 
destroyed, and the co«puter picks a randort insult to throw at 
the player. 



1970 ' 

1980 F'RINTeO,"YOUR REFINING FORCES ARE RETREAHNG IN PANIC BEFO 

RE THE ENEMY!" 

1990 R=RM)(7) 

2000 FR=lPRINTe61,"Y0U HAVE LOST ALL CONTROL!" 

2010 IFR-2PRINT061,"THE WAR IS LOST!" 

2020 IFR=3PRINTe61,"0NE OF YOUR' JUNIOR OFICERB SHOITS YOU!" 

2030 IFR=1PRINTe61,"Y0U ARE FORCED TO FLEE FOR YOUR LIFE!" 

2010 IFR=5PRINTI?6'),"Y0U BEGIN TO WORRY ABOJT YOUR CAREER!" 

2050 FR=6PRINT061,"YOU FEAR THIS HILL AFFECT YOUR POQTICAL AHE; 

mONS!" 

2060 IFR=7PRINTe61,"QNE OF YOUR TANK COMMANDERS SEES YOU m RIW 

S OVER YOU!" 

2070 GOSUB1130;RETURN 



Lines 2080-2170; Relief of cowiand. 



2080 ' 

2090 FraNTeO/'YOU HAVE BEEN RELIEVED OF CWIMAND DUE TO INCfflfETE 
NCY!" 

2100 R=RND(4) 

2110 FR-lPRINTe61,"A COmT-MARTIAL HAS REDUCED YOU TO PRIVATE!" 
2120 IFR=2PRINTI?61,"Y0U HAVE BEEN FORCED TO RESIGN m SENT HOME 
IN DISGRACE!" 

2130 IFR=3PRINT061,"YOUR MILITARY CAREER IS OVER!" 

2110 IFR-1PRINTI?41,"Y0ll? FRIENDS AT NORPAC NO LONGER SPEAK TO YO 

U!" 

2150 FR=5PRINTe61,"Y0lffi SONS HAVE CHANGED THEIR LAST NAMES!" 

2160 FR=6F'RINTe61,"THE PRESIDENT HAS CALLED YOU "A TURKEY IN TH 

E MIDST OF EAGLES!" 

2170 GOSUB1130:RETI»I 



Lines 2180-2270! Victory! 



2180 ' 

2190 PRINT0O," YOU HAVE WON 

OVER!" 
2200 R=RND(6) 



THE WAR IS 



2210 IFR=lPRINTe61,"Y0U ARE A NAHONAL HERO!" 
2220 IFR=2PRINTe61,"THE PRESIDENT WANTS YOU AS HIS 1996 ELECHON 
RUWONG MATE!" 

2230 IFR=3PRINTe61,"H0LLYW000 HANTS TO MAKE A MOVIE ABOUT YOUR L 
FE!" 

2210 FR=1PRINTe61,"A STATUE OF YOU NOW RESTS ON Tl€ PAWCE GROU 
ND AT VES1 POM!" 

2250 IFR=5PRINTe61,"Y0UR MEMOIRS ARE SLLING LIKE HOTCAKES!" 
2260 FR=6PRINT061,"YOUR SONS HAVE DECIDED TO FOLLOW IN YOUR FOO 
TSTEPS!" 
2270 GOSUB1130JRETU(W 

Lines 2280-2310! Warnings given for repeated Mistakes. 



2280 ' 

2290 FMS=3PRINTeO,E$;:PRINTeO,"YOUR MISTAKES HAVE BEEN REPORTED 
TO NORPAC COMWD!"! 

2300 FMS=1PRINTeO,E$!!PRINTI?0, "NORPAC COMMAND WILL NOT PERMH F 
URTHER MISTAKES!"! 
231 FMSOTHENRETURNELSEGOSUBl 130 i RETU^J 



Lines 2320-2310! Ene«y attack along all of front line. 



2320 ' 

2330 PRINTI?0,E$!!PRINTeO,"THE ENEMY IS ATTACKING ALONG ALL CORPS 
FRONT LINES!!!"! 

2310 FORT=lTO2O!PRINT0Ll+3,")t:"! tF^RINTeLZ+S,"*"; :PRINT0L3+3,"x"! ! 
F'RINTI?L1+3,"x"!:FORTA=1T020!NEXTTA!PRINTI?L1+3," ";!PRINT0L2+3," 
"!!PRINT0L3+3," "!!PRINT0L1+3," ";:FORTA=1T020!NEXTTA,T!RETURN 



Lines 2350-2390! Unauthorized offensives, 



2350 ' 

2360 GOSUE:1170:GOSUB1610!KK=0!X1=((AE>1ANDS(1)>26)OR(S(1)>28))!X 

2=( (AH'/1ANDS(2)>26)0R(SC2)>28) ) !X3=( (AK;>1ANDS(3)>26)0R(S(3)>28) ) 

!X1=( (AN;>1ANDS(1)>26)0R(S(3)>28) ) 

2370 FR-1ANDX1THE^K$=L0$(1 ) !LL=L1 !KK=1ELSEFR-2ANDX2THENE8*4.0 

»(2) !LL=L2!KK=lELSEIFR=3ANDX3T«}eB$=L0$(3) !LL=L3:KK=1ELSEIFR=1A 

NDX1THE^SB♦=L0$(1)!LL=L1!KK=1 



2380 IFKK=lPRINT0O,E»;!PRINTeO,"THE "IBB*!" CWWANDER IS LAUNCHI 
NG AN ATTACK !"!ELSERETURN 

2390 FORT=1T020 !PRINTffl.L+3 , "x" ! ! PRINTeLL+7, "x" J :FORTA=1T020 ! ItXT 
TA!PRINTeLL+3," ";!PRINT8LL+7," "!!FCKTA=lT020!IOnA,T!RETURN 



Lines 2100-2120! Variable initialization. 



2100 ' 

2110 LOt(l)="I C0RPS"!L0»(2)="II CORPS" !L0$(3)="in C0RPS"5L0«(1 

)="IV C0RPS"!L0$(5)="RESERVE"!DV$(1)="INFANTRY"!DV$(2)="«MDRED" 

!DV$(3)="AIRB0RNE"!ES=136 

2120 LU=" I "!L2$=" H "!L3«=" — m "!L1 

»=" IV "!L5$="- 8 -"!L6*="- 3 -"!L1=518:L2=531!L3=5WL1 

=557!L5=512!L6=570!E$=STRING$(192,32)!FORT=lT0205READO(T)!(eaT: 
ED=11+R^D(5)!RE^URN 



© 
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SPACE WAR 

You're in command in SPACE WAR! Destroy your opponent's 
ship by forcing him to collide with the sun or to explode upon 
re-entry from hyperspace ... or challenge him to fight face to 
face with missile fire. You're in command of the speed and 
direction of your ship. You control the timing of your missiles. 
You select the game mode from five options, including 
Reverse Gravity, and the battle begins . . Accelerate to place 
your shots — and escape into hyperspace before your 
opponent comes within range. But be wary, he (or she!) may 
circle out of sight and reappear on the opposite side of the 
galaxy! (This is the classic MIT game redesigned especially for 
the Apple.) 



FROM 



seRsatioRal 
software 




SUPER INVASION 

SUPER INVASION is the original invasion game, with the 
original moon creatures and faster action than any other 
invasion game. Features superb high resolution graphics, nail- 
biting tension and hilarious antics by the moon creatures! Self- 
running "attract mode" of operation for easy learning and 

demonstration of the game. As good in every way as the famous Invaders arcade game. High speed action! 
Sound effects! Runs on the Apple II and the Apple II Plus. 

Super Invasion Only 

32K, Apple II, Cassette $19.95 

Space War and Super Invasion Combined 

48K, Apple II, Disk $29.95 

AIR TRAFFIC CONTROLLER 

In AIR TRAFFIC CONTROLLER you assume responsibility for the safe flow of air traffic within a IS x 25 
mile area up to 5,000 feet in altitude. During your shift as a controller in charge of this airspace, 26 aircraft 
become active and under your control. Jets and prop planes have to be guided to and from the two airports, 
navigational beacons and ten entry/exit fixes. The aircraft enter the controller's airspace at various altitudes 
and headings whether or not you are ready. 

16K, Apple II and Apple II + Cassette $11.95 

16K, S-80, Cassette $11.95 
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MATH DECATHLON 




Part 2 

by Jon Voskuil 

Welcome back to the Olympics! 
This second installment of "Math 
Decathlon" will add two more 
events and the music-generating 
routines. 

The two purposes stated in the 
first article continue into this and 
the remaining installments: To 
develop a fun and interesting math 
game program, and to learn good 
programming techniques along the 
way. (If you missed the first 
installment, back issues are 
available for a mere pittance.) I'll 
continue to explain commands and 
syntax that are unique to the 
Apple, for the benefit of those 
who are working with different 
computers. 

The first thing you'll need to do, 
before sitting down to type in the 
Unes which follow, is to load the 
first part of the program, which 
you typed in last time. Failing to 
do this will void all warranties — 
not to mention generating endless 
insults from your computer such as 
UNDEF'D STATEMENT ERROR 
and BAD SUBSCRIPT ERROR. 

Having done that, the first new 
thing to be done is to change hues 
310 and 320 to include the names 
of the next two events, as shown in 
the listing. Line 350 is also added, 
caUing the subroutine at line 
12000, which pokes into memory a 
short Machine Language routine to 
generate musical notes. 
[Translation note: This and all 
other music routines are designed 
for the Apple; if you're translating 
for another computer, you'll have 
to create your own. Or you can 
omit the routines entirely, and the 
rest of the program will work fine. 
In that case you should omit lines 
350, 11090-11190, and 
12000-13425, and change lines 420 
and 430 appropriately.] 

EVENT #3: 
SPEED MATH 

In the third event, which begins 
at line 3000, a player's score 
depends on how quickly the 
correct answer can be typed in. 
This is the only event which 
functions in this way, and it calls 
for a rather different kind of input 
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routine. How do you measure the 
delay between displaying the 
problem on the screen, and 
receiving the answer from the 
keyboard? One answer is to invest 
a fewscore-and-seven dollars in a 
real-time clock for one of those 
gaping slots inside your Apple. A 
less expensive (nay, free!) answer is 
to use a loop with a keyboard peek 
and a GET statement in it, such as 
you find in Unes 3070-3150. 
[Translation note: GET works just 
as INPUT does, except that it can 
input only one character, and 
pressing RETURN (that's ENTER 
to you Radio Shack fans) is not 
needed. It's similar to the S-80's 
INKEYS, except that GET waits 
for a keystroke.] 

Here's how the input routine 
works, Line 3080 sets up a loop 
which shrinks in length at higher 
skill levels. The cursor is 
positioned at PSN, and then the 
PEEK takes a look at the 
keyboard to see if a key has been 
pressed. If not, control skips to the 
end of the loop at 3150, whence it 
returns to 3080. If a key has been 
pressed, however, control falls 
through to line 3090 where the 
pressed key is trapped in D$ using 
GET, after which the keyboard is 
cleared with the POKE. The 
captured character is examined 
and, if it's not a backspace, 
control skips to 3120. There it's 
checked again to see if it's a 
RETURN. If so, the player has 
finished the entry and control 
breaks out of the loop to the 
scoring routine. 

If the key pressed was neither 
the backspace nor RETURN, then 
in line 3130 its value is stored in 
NUM(DI) — the next Digit of the 
NUMber — and printed on the 
screen. The position of the cursor 
is then incremented in line 3140, 
and control jumps back to the 
beginning of the loop again to 
start searching for the next digit to 
be entered. Simple, eh? This is a 
routine which you can transplant 
into one of your own programs 
whenever you want to limit or 
monitor the amount of time taken 
for a user response. 

The scoring routine begins in 
line 3160, and makes use of the 
value of T (the loop counter from 
above) to determine the player's 
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score. Finally, lines 3210-3230 
contain the three subroutines 
which generate values (and assign 
the math function symbol, -I- , -, 
or x) for the three types of 
problems. 

EVENT #4: 
STARRY STARRY NIGHT 

The next event has an unlikely 
title for a math game, but one 
which is very descriptive 
nevertheless. The object is for each 
player to estimate how many 
points of light the computer 
flashes on the screen. The score 
depends on how close the guess is. 

The "stars" are simply periods 
printed out on the text screen, in a 
more-or-less random arrangement. 
The method used to do this is to 
build a string of spaces and a 
random number of periods, and 
then to print that string several 
times to fill the screen. This is 
accomplished in lines 4050-4100. 
Line 4060 determines how often a 
period is to be stuck in, using a 
somewhat obscure formula derived 
mostly by trial and error. X$ is 
built up to 137 characters, and 
then printed seven times — odd 
numbers which make the display 
look fairly random. Lines 
4110-4170 compute the player's 
score, based on percentage error; 
the "standard" scoring subroutine 
at line 30 is not used here. And 
that's all the coding there is to 
event #4. 

THE MUSIC ROUTINES 

Each time the scoreboard is 
displayed, the players' scores for 
the event just completed are 
compared. If there is a single 
winner (not a tie), then a part of 
that player's national song is 
played. This wondrous feat is 
accomplished by lines 11090-11190, 
which must be inserted into the 
existing scoreboard subroutine. 
Lines 11100-11120 find the high 
points (HP) for this event, and 
lines 11130-11150 check for a tie. 
if there is a winner, then lines 
11160-11190 play the appropriate 
song. This is done by assigning 
values to the variables SKIP and 
PLAY, which specify how many 
musical notes in the DATA 
statements are to be skipped over, 



and then how many are to be 
played. 

Subroutine 13000 is called to 
accomplish that. After RESTORE, 
pitch/time data pairs are idly (but 
quickly) read until reaching the 
ones to play, and then these are 
POKEd into the appropriate 
memory locations and the music 
subroutine is CALLed. This is the 
Machine Language routine which 
is initially set up by subroutine 
12000, which is Hsted here for your 
typing pleasure. The remaining 
lines, from 13100 on contain all 
the data necessary for the national 
songs, and of course must be typed 
in without error to produce sweet 
music. 

Next month: The next three 
exciting events! 



Variables (Part 2) 

A, B: Numbers generated for 

speed-math problem. 

C: Correct answer for speed-math 

problem. 

D$: Input character. 

DI: Place-value position for 

entered digit. 

F$: Arithmetic operation symbol: 

-H, -, or x. 

HP: High points for this event. 

K: Loop counter. 

NUM: Number of stars. 

NUM(di): Storage array for 

entered digits. 

P%: Temporary variable for 

points scored. 

PITCH: Memory address for 

music routine. 

PK: Loop counter. 

PLAY: Number of notes to play. 

POK$: String of poke values for 

music routine. 

PSN: Tab position for input 

routine. 

R: Random number which affects 

number of stars. 

SKIP: Number of notes to skip. 

T: Input routine timing counter. 

TIME: Memory address for music 

routine. 

TYE: Used to determine if tie 

score. 

WNR: Number of winning player 

for this event. 

X$: String of "stars". 



Ne« lines to replace previous lines 
310 and 320. 

310 E»(l) = "MISSING *":E»(2) = " 
GUESS A ♦":E»(3) = "SPEED MA 
TH":Et(1) = "STARS" 

320 EE$a) = " 1. FIND THE MISSIN 
G Nl*eER"!EE»(2) = " 2. G1£S 
S A NUME£R"JEEt(3) = " 3. SP 



EED MATH"!EE»(1) = " 1. STAR 

RY STARRY NIGHT" 
Call subroutine to poke in 
Hachine-lanquaqe tone generator. 

:ko gosue 12000 

Event »3: 
Speed Math 
Print instructions. 
3000 E = 3!NXT = 

3010 FOR p = 1 TO np: GOSUB 10 

3020 PRINT "IN THIS EVENT I WILL 
GIVE YOU A SERIES OF THREE 
MATH F1<0E;LEMS. THE MORE QU 
ICK-LY YOU CAN TYF'E IN THE C 
ORRECT ANSWER, THE HIMR Y 
OUR SCORE WILL E£." 
3030 PRINT ! PRINT "IF YOU TYPE 
IN THE WRONG ANSWER, OR RUN 
(UT OF TIME, YOUR SCCRE FOR 
THAT PRffiLEMWILL E£ ZERO." 
3040 GOSUEi 90! IF NXT THEN tOflO 
Generate and display an additiori, 
si.ibtraction. or Multiplication 
probleM. 




3050 FOR PROE: = 1 TO 3J ON PRGB GOSUE; 
3210,3220,3230 

3060 HOME : VTAB 5: HTAB 19 + (A 

< 10) + (A < 100): PRINT a: 

PRINT : HTAB 17 + (B < 10) + 
(B < 100)*. PRINT F*;" "IB: PRINT 

TAB( 17)" "', PRINT TAB( 

21)"?": PRINT : PRINT : PRINT 

: PRINT TAB( io)"answer:": 
lined input routine. 

3070 DI = o:ai = o:psn = 20: for 

T = 1 TO 300: NEXT T 
3080 FOR T = 1 TO 600 - S(P) x 1 

00: HTAB PSN: IF PEEK ( - 1 

6384) < 127 THEN 3150 
3090 GET D*: POKE - 16368,0: F 

ASC (D») < > 8 THEN 3120 
3100 PSN = PSN - 1:DI = DI - 1: IF 

DI < THEN 01 = 



3110 GOTO 3150 

3120 IF ASC (D*) = 13 THEN 3170 

3130 DI = DI + 1: PRINT VAL (Dt) 

;:num(di) = val (d$): if di 

= 4 THEN 3170 
3140 PSN = PSN + 1 
3150 f€XT T 

Scoring routine. 

3160 PRINT : PRINT : PRINT "TIME 

'S UP. . ," 
3170 FOR K = 1 TO DI:A1 = A1 + N 

UM(K) J! 10 " (DI - k); next 

K 
3180 A2 = C:PX = 10 - INT (10 x 

T / (600 - S(P) x 100)): (MSUB 

40 
3190 GOSUE; 100 
3200 NEXT PR0E:,P: GOSUEi llOOO: GOTO 

4000 

Generate addition problen. 

3Z10 A = INT ( RNO (1) x 10 '^ (S 
(P) / 2 + D) + 1:B = INT ( 
RM) (1) * W (S(P) 7 2 + 

D) + i:c = A + b:f$ = "+": return 

Gerierate subtraction problen. 

3220 A = INT ( RND (1) x 10 -^ (S 
(P) 7 2+1))+ 5:B = INT ( 
RNO (1) X (A - 3 X (S(P) + 

1))) + 3:c = A - b:f* = "-"; 

RtTURN 

Gerierate Multiplication problen. 

3230 A = INT ( RND (1) x 10 x (S 
(P) + 1));B = INT ( RND (1) 
X 6.9) + 3:C = A X B:Ff = " 
X"; RETURN 

Event *4: 

Starry Starry Night 

Print instructioris. 

4000 E = 4:nxt = 

4010 FOR P = 1 TO np: GOSUE; 10 

4020 PRINT "IN THIS EVENT I WILL 
E^IEFLY SHOW YtSJ A BLfCK NI 
GHT SKY WITH A NUMEiER OF STA 
RS" 

4030 fWn "IN IT, YOU ARE TO G 
UESS HOW MANY STARS THERE AR 
E. THE CLOSER YOUR GUESS, T 
\E MCKE POINTS YOU'LL GET." 

4040 GOSUB 90: IF NXT THEN 5000 

Choose and display randow rt.vber- of 
'stars' . 

4050 FOR PROE; = 1 TO 3; HOME :NU 

M = o:xt = "" 

4060 R = RNO (1) X .09 x (S(P) + 
1) + .03 + .02 X S(P) 

continued on next page 
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continued from previous page 


12020 PITCH = o:n(€ = i: return 


Data for France. 


1070 FOR I = 1 TO 137: F RND ( 


Si.ihroi.itine to read proper notes 


13300 DATA 86,22,86,68,86,22,61 


1) > R THEN X* = X» + " ": NEXT 
: GOTO 1090 


frort DATA statenents arid play then. 


,90,61,90,57,90,57,90,13,135 


1080 X* = x$ + ".":num = num + i; 

^EXT 
1090 FOR I = 1 TO 7! PRINT X$;! NEXT 


13000 RESTOR-E : IF SKIP = THEN 


,51,15,61,68 
13305 DATA 61,22,51,68,61,22,76 


13020 
13010 FOR I = 1 TO skip: READ PT 


,90,18,180,57,68,68,22,61,22 
5,1,15,61,68 




,Tii; NEXT 


13310 DATA 57,22,51,90,51,90,51 


1100 hWH = NUM X 7J FOR I = 1 TO 
ZOOO: NEXT I 


13020 FOR I = 1 TO PLAY: READ PT 


,90,18,68,51,22,51,15,57,15, 


,tm: poke pitch,pt: poke tim 


57,135,1,15 




E,T«: CALL 768: NEXT 


13315 DATA 57,68,51,22,18,90,18 


Irjput arid score player's guess. 


13030 RETURN 


,90,18,90,13,68,18,22,51,180 




Data for Great Britain. 


,1,90,13,68 
13320 DATA 13,22,13,90,51,68,61 


1110 HOME : VTAB 8: INPUT "HOH M 
ANY STARS? "IAN* '.AN = VAL ( 


13100 DATA 61,128,61,128,57,128 


,22,13,90,51,68,61,22,86,180 


AN$) 


,68,192,61,61,57,128,51,128, 


,1,68,86,22 


1120 P2 = 10 - INT (20 I ABS (N 


51,128,18,128,51,192 




UM - AN) / NUM); IF PZ < THEN 


13105 DATA 57,61,61,128,57,128 




p% = 


,61,128,68,128,61,255, 1,128 


13325 DATA 86,15,68,15,57,180,1 


1130 PRINT : PRINT "THE ACTUAL N 


,13,128,13,128,13,128 


8,90,57,15,68,15,61,90,61,90 


UMEtR WAS "JNUM;"!" 


13110 DATA 13,192,18,61,51,128, 


,72,180,76,90 


1110 PRINT ! PRINT "YOUR SCORE I 


18,128,18,128,18,128,18,192, 


13330 DATA 61,15,61,15,61,90,68 


S "\?l'," OUT OF 10." 


51,61,57,128,51,128 


,15,61,15,57,180,1,90,57,90, 


1150 R:(P,E) = PZ(P,E) + P% 


13115 DATA 18,61,51,61,57,61,61 


51,135,51,15 


11A0 GQSUEi 100 


,61,51, 192, 18, 61, 13, 128, :S, 6 


13335 DATA 57,15,51,15,18,15,13 


1 1 U ULKJUC ^ U U 

1170 neh proe! next p: GOSUe 11 


1,13,32,18,32,51,128,57,128, 


,15,57,180,1,90,51,15,57,15, 


000 


61,255 


61,135,61,15 




13310 DATA 61,15,51,15,57,15,61 


Event »5 will begin at line 5000. 




,15,61,15,68,15,68,90,1,158, 


For now. end here. 


Data for U.S.A. 


13,22,13,218 


5000 END 






Routine to play a portion of the 






riational sorig of this event's 


13200 DATA 72,96,86,32,108,128, 


13315 DATA 13,22,51,68,61,22,57 


uirner • 


86,128,72,128,51,255,13,96,1 


,255,1,68,13,22,13,218,13,22 


11090 IF NP = 1 THEN 11200 


8,32,51,128,86,128 


,51,68,61,22 


11100 \f = r,m( = 


13205 DATA 76,128,72,255,72,61 


13350 DATA 57,180,1,90,86,90,61 


11110 FOR P = 1 TO NP; IF PZ(P,E 


,72,61,13,192,18,61,51,128,5 


,255,57,90,51,255,18,90,13,9 


) > HP THEN HP = PZ(P,E):HNR 


7,255,61, 61,57,61 


0,38,90,57,255 


= P 


13210 DATA 51,128,51,128,72,128 


13355 DATA 38,90,13,218,51,22,1 


11120 NEXT P 


,86,128,108,128,72,96,86,32, 


8,68,57,22,61,255 


11130 TYE = - 1 


108,128,86,128,72,128 




11110 FOR P = 1 TO NPJ IF PZ(P,E 


13215 DATA 51,255,13,96,18,32, 




) = HP THEN TYE = TYE + 1 


51,128,86,128,76,128,72,255, 




11150 NEXT P: if TYE THEN 11200 


72,61,72,61,13,192 


Data for Scotland. 


11160 SKP = 17:PLAY = 26: IF C(W 


13220 DATA 18,61,51,128,57,255, 




m = 2 THEN SfOP = 117:PLAY 


61,61,57,61,51,128,51,128,72 




= 28 


,128,86,128,108,128 




11170 IF C(W«<) = 3 THEN SKIP = 


13225 DATA 13,61,13,61,13,128, 


13100 DATA 72,96,72,32,72,96,86 


115:PLAY = 18 


10,128,36,128,36,255,10,61,1 


,32,72,96,61,32,51,128,61,96 


11180 IF ZiVm) = 1 THEN SKff = 


3,61,18,128,13,128 


,61,32,61,96 


261:PLAY = 27 


13230 DATA 10,128,10,255,10,61, 


13105 DATA 72,32,61,96,57,32,51 


11190 GOSUB 13000 


10,61,13,192,18,61,51,128,57 


,96,18,32,13,96,13,32,18,96, 


St.ibroLitiriG to pott.e in 


,255, 61,61,57,61 


72,32,72,96 


nachine-language tone gerierator. 


13235 DATA 51,128,86,128,76,128 


13110 DATA 18,32,13,128,51,96,6 




,72,255,72,128,51,128,51,128 


1,32,61,96,72,32,72,255,13,9 




,51,61,57,61,61,128 


6,13,32,13,96 


12000 POK$ = "173,018,192,136,208 


13210 DATA 61,128,61,128,18,128 


13115 DATA 18,32,13,96,10,32,36 


,001,198,001,210,008,202,208 


,10,61,13,61,18,61,51,61,51, 


,128,18,96,18,32,18,96,51,32 


,216,166,000,076,000,003,096 


128,57,255,72,61 


,18,96,13,32 


n 


13215 DATA 72,61,51,192,18,61, 


13120 DATA 10,128,36,96,13,32,1 


12010 FOR PK = TO 18: POKE 768 


13,61,10,61,36,255,51,61,18, 


8,96,51,32,51,96,18,32,13,12 


+ PR, VAL ( MID* (POK»,PK x 


61,13,192,10,61,18,128,51,25 


8,51,96,61,32 _, 
13125 DATA 61,96,72,32,72,255 ^ 


1 + 1,3)): ICXT PK 


5 
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What to Do 
AFTER 
the Program Loads 



by Edward Ting 

OK, you've got your program 
loaded, as per Sherry Taylor's 
instructions in December 1980 
SoftSide. Now what? Sit there and 
stare at the asterisks left on the 
screen? Here, in a sequel to "What 
to Do While the Program Loads", 
is a step-by-step guide. 

1. In wild anticipation, type in 
R-U-N and ENTER. 

2. Hit ENTER again in response 
to the MEMORY SIZE question. 

3. Rewind the tape and load it 
again. 

4. See page 28 of Dec. SoftSide. 

5. Again, type in R-U-N and 
ENTER. 

6. Read the response. 

7. Grit your teeth after 
confirming that there is no syntax 
error in Hne 65536. 

8. Blame someone else; a child is 
best. 

9. Rewind the tape and CLOAD 
again. Stay in the room this time. 

10. Flare your nostrils after 
hearing your CTR-80 automatically 
stop at the end of the tape. 

1 1 . Walk up to the keyboard. 

12. Hit it. 

13. Feverishly attempt to replace 
the keys that have fallen out. 

14. Call a Radio Shack Service 
Center. 

15. Try to stop Radio Shack 
serviceman from laughing. Hang 
up. 

16. Pick a fight with a neighbor. 

17. Ice the area of your anatomy 
where he hit you. 

18. Ax your TRS-80™in two, 
salvaging what parts you can. 

19. Bring the original tape to a 
fellow computerist's house. 

20. Write a letter to the software 
house, asking for a replacement 
for the defective tape. 

21. Have fun reassembling your 
computer. The Radio Shack 
warranty does not cover damages £^ 
inflicted by ax. -J 





FROffl CIIRIfTOPIIERfOn 



« mm 



ANDROID NIM 

The newest version of TRS-80™s first animated graphics game — 

Android NIM — now with more animation and sound! 

16K, S-80, Level II, Cassette, Machine Language $14.95 

BEE WARY 

This fast-paced real time action game is a contest between a Bee 
operated by the player and a Spider operated by the computer. 
Machine language subroutines, but loads as Level II for easy opera- 
tion. 16K, S-80, Cassette '$14.95 

SNAKE EGGS 

Here is a computerized reptilian version of 21 complete with arrogant 
snakes and appropriate sound. 16K, S-80, Level II, Cassette. . $14.95 

LIFE TWO 

Two in one: Game of Life, at an astounding 100 generations a minute, 

plus Battle of Life with animated creatures and sound. 

16K, S-80, Level II, Cassette $14.95 

DUEL-N-DROIDS 

You are the Fencing Master and all you need to do is train your An- 
droid by making him duel the machinei's androids. After he is train- 
ed, enter him in the Tournament and sit back and enjoy the fun. 
Features included in this game are: sound effects, extensive graphic 
displays and multiple playing levels. 

16K, S-80, Level II, Cassette $14.95 

S-80, Disk $20.95 

TS€JHnRDSID€ 

6 South St.,Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 
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ROBOT BUILDER 




by Arnold Gross 

"Robot Builder" is an S-80 
program requiring at least 16K of 
RAM. 

If you've always wanted to build 
your own robot, but your 
mechanical aptitude is such that 
you not only have all thumbs but 
all your thumbs have hangnails, 
"Robot Builder" may be just the 
program for you. The process is 
simplicity itself: Just push the 
space bar and the computer will do 
the rest. Sound easy? There is one 
restriction, however. The robot 
must be built in a certain order, 
starting with a body and then 
progressing to wheels, neck, arms, 
head, and scanner. 

Not the most mentally taxing 
game we've pubhshed, "Robot 
Builder" is nicely done and should 
provide many hours of amusement 
for the little ones clustered around 
the keyboard. 

Notice how parts of this listing 
are in lower case. If you have a 
lower case modification, or if you 
plan to use "Robot Builder" on a 
system that does, type in these 
lower case letters while holding 
down the SHIFT key. The letters 
will appear the same on the screen, 



but when the program is run they 
will become lower case! 
VARIABLES 

A$: Either "YOU" or "I", used 

for printing messages. 

B$: As A$ above, but contains 

possessive form ("YOUR", 

"MY"). 

CL: FOR/NEXT loop variable 

used to erase the die picture from 

the screen. 

DO, Dl, D2, D3, D4, D9, DN, 

DR, E$: Various graphic and 

control strings. 

I: FOR/NEXT loop variable to 

POKE lower case driver into 

memory. 

1$: INKEYS loop variable. 

LC: Various values associated with 

the lower case option. 

L$: Code to clear one Hne of the 

video screen -CHR$(30). 

R: Die rolled. 

T: Current player. 1 = Human 

2 = Computer. 

X, Y: Used in graphic FOR/NEXT 

loops. 

Z: PRINT® screen position. 

Takes on a different value for each 

player to instruct the program 

where to print messages for that 

player. 

B: 1 = Player's robot has a body, 

= it doesn't. 



N: 1 = Player's robot has a neck, 

= it doesn't. 

H: 1 = Player's robot has a head, 

= it doesn't. 

A: Number of arms current 

player's robot has (0, 1 or 2). 

W: Number of wheels current 

player's robot has (0 to 6). 

S: 1 = Player's robot has a scanner, 

= it doesn't. 

A(16): Stores the six variables 

above for each player. 

A(l-6) =B, N, H, A, W, Sfor 

human player. 

A(ll-16) = B, N, H, A, W, S for 

computer. 

Variables C, E, F, G, J, and K 
are used as pointers to the Y axis 
position of various parts of the 
robots. Each variable can have two 
different values, one for each 
player's robot. These variables are 
used by the various robot part 
routines (body, neck, arms, etc.) to 
determine where a certain part 
should be drawn on the screen. 
The routines these variables are 
used in are: 
C: Scanner routine. 
E: Neck routine. 
F: Neck and Arm routines. 
G: Body and Arm routines. 
J: Wheel routine. 
K: Head routine. 



100 ' xiatiaxriiifxttxaitxtxaai'tMxxtmxtttttM 

* - THE ROBOT BUILDING CONTEST - x 
I Version 3.1 (9/80) TRS-80 16K i 
X Arnold Gross (212-666-1903) t 

105 ' X 771 West End Ave,, N,Y. 10025 * 

xiajMxoixiiaiixxxjixxxixxxxxxxxxxxxxxxxxx 

110 CLS:CLEAR!POt<E16561,210:CLEAR200 

Line 115! Checks to see if lower case is installed, and 
if it is 3 ro(.itine at 820 is called to POKE in a 
lower case driver, 

115 F'(»(E15361,97!LC=PEEK(15361):CLS!IFLC=97THENGOSUB820 

Lires 120-135,' Asl<.s if player warits instructions. If 
so, branch to a routine at lirie 685 which prints then, 

125 Ff!mT0656,"Do you need instructions (Y/N) ?"; 

130 I$=INf;EY$!IFI*="Y"ORI$="y"T^CNaSJGOSUB685:GOTO110 

135 FI$O"N"AM)I$O"n"Tt£N130 

Lines HO-175! Variable initializatiori, 

m CLEAR200!DEFSTRD:DIMA(16):L$=CHFt*(30) 
H5 D0=CHR»(130)+STRnJG$(3,113)+Cl«t(129) 
150 De=CHR$(26)+STRII«t(1,B)!D9=DB+D0 
155 Dl=Cf«t(136)+STRIf€$(3,191)+affi$(132) 

160 D2=C«<$(160)+STRING»(3,188)+O«$(111)+M!+STRING»(3,131) 

165 D3=STRING$(3,176)+CHR*(26)+STRINGt(1,8)+D0 

170 D1=CHRt(160)+STRING$(3,188)+a««(111)+DB+STRING*(3,179)+O9 



175 DN=" do not reed another "!DR=" robot has no "!E$=afl<$(212) 

Lifies 180-215! Set up initial playirig board. 

180 CIS IPRINTM, "Your robot!";:PRINT(?515,"My robot!"! 

135 PRINTe367,Cm$(18B)STRING$(15,H0)CHR$(188); 

190 FORY=61TO256STEP64:PRINTI?367+Y,CHR»(191)CHR'*(207)CHRt(191)! 

195 NEXT:F'RINTe368,STRING$(15,110)!!PRINTe687,STRING$(17,131)! 

20 PRIfJT(?151 , STRIfCt ( 11 , 176 ) ! 

205 F0RY=19T0979STEP6i:PRINTeY,CHRt(191) ; !^CXT 

210 T=2!PRINT(?790, "(press the space bar for your first roll)"! 

215 GOSUE:785:PRINTe790,L»| 

Line 220! Rolls a six-sided die and graphically displays 
the result on the screen, 

220 R=RND(6)!Of«<GO5UE:260,265,270,275,285,290 

Lines 225-215! Deterwines whose tiirn it is, arid branches to 
the proper routine. The routine at line 230 sets up the 
needed variabled for wheri it is the co«puter's turn, while 
the roijtine as line 210 handles the player's turn. 

225 IFT=2TfCNT=i:GOTO210ELSET=2 
230 A*="I"!B*="My"!Z=599!C=28:K=3i!E=37:F=38:G=39:J=11 
235 B=A(11):N=A(12):H=A(13):A=A(11):W=A(15)!S=A(16):GOT(3250 
210 A$="You"!B*="Your"!Z=B7!C=1!K=7:E=13!F=li;G=15!J=20 
215 B=A(1)!N=A(2)!H=A(3):A=A(1):W=A(5)!S=A(6) 

Lines 250-255! Brarches to the proper body part roi.itine 
for the ruirtber rolled (body, rieck, head, arw, wheel or 
scanner), 
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250 PRINTeZ-61,Bt|" roll! "!R;:PRINTI?Z+1,| 
255 (»RGOTO370,120, 165,520,575,610 

Lines 260-295J Six subroutines to display each of the 
possible rolls of a six-sided die. The routine for the 
six rolls start at 260, 265, 270, 275, 285 and 290. 

260 PRINTK01,D2;!RETIKN 

265 PRINTM98,D2;:PRINTe501,D2|:RETl«N 

270 PRINTe501,D2;tPRINT8562,D3;:PRINTM11,Di;!RETURN 

275 PRINTM31,D2;!PRINTei10,D2;;PRINTe562,D2; 

280 PRBfre568,D2;:RETURN 

285 GOSlB270!PRINTei33,Di;:PRINTe570,D3;!RETl«N 

2?o printm31,di;:printi?'mo,di; 

295 PRINTei98,M;:PRINTe501,D1j:i^URN 

Line 3001 Erases the die display fro« the screen. 

300 FOf)a=132TO621STEP61!PRINTea,Ct«»(206) I :NEXT:GOT0220 

Lines 305-320! Branch to line 325 if gawe has been won, 
otherwise clean up the display for the next turn. 

305 IFA=2W«)S=lAM)«=6TfO32^SEG0SlB780!PRINTe919,L$| 
310 IFT=lTHEN300aSEPRINTe22,L$;!FRINTe86,L»;!PRINTK11,L»; 
315 PRINTe278,L$; !PRINTei06,E$! !PRINTe531,E$; !PRINTe598,E»! 
320 PRINTe726,L»i!PRINT079O,L*;iGOTO3OO 

Lines 325-365! Win routine. The Message "I WIN" or "YOU 
"WIN" is flashed in lines 330-310, then lines 315-365 Hove 
the eyes of the winning player's robot. 

325 B*=a«;$(205) 

330 IFA$="I"TteW$="I WIN I I ! "ELSEA$="YCIU WIN ! I !" 

335 FORN=lTO10!PRINTeZ+322,B$;!FORT=lTO50!NEXT 

310 FraNTeZ+322,A»!!FORT=lT050!ICXTT,N 

315FOF3<1=1T010!E=K+2!B=G+2!ISSET(18,E)ISET(22,E)!RESET(19,E) 

350 SET(23,E)!FORX=12TO20!SET(X,E)I^(X+l,B):SET(X+2,B) 

355 RESET(X,B)!fCXTX!RESET(22,E)i^(18,E)!ISSET(23,E) 

360 SET(19,E)!F0RX=21T029!SET(X,B):SET(X+l,e)!SET(X+2,B) 

365 REKT(X,B)!NEXTX,X1:GOTG790 

Lines 370-115! Body routine. Deter«ines if a body is 
needed or if one is already present. If one is needed, 
it is placed on the screen. 

370 PRINT" (body) ..."! 

375 IFB=lTHENPRINTeZ+128,A*0N"body."!!«)T0305 

380 FiaNT0Z+128,A»|" now have a body."! 

385 GOSUB395!B=l!ffT=lTHENA(l)=B!GOTO305 

390 A(ll)=B!GOTO305 



395 F0RX=9T032!SET(X,G+1) !NEXT!FORX=llTO30!SET(X,G) !NEXT 
100 FORY=G+lTOG+3:SET(10,Y)!SET(ll,Y)!SET(3fl,Y)!SET(31,Y)!(CXTY 
105 F0RY=G+1T0G+3!SET(13,Y)!SET(15,Y)!SET(16,Y)!SET(18,Y) 
110 ^(20,Y)!^(21,Y)!SET(23,Y)!SET(25,Y)!SET(26,Y) 
115 SET(28,Y):NEXT!RETURN 

Lines 120-160! Neck routine. Much the sate as the body 
routine above, but it also checks to see if there is a 
body to place the neck on. 

120 FraNT" (neck) ..."| 

125 IFN=lTHENPRINTeZ+128,A$ON"neck."!!GOT0305 

130 IFB=lTHEM^INTeZ+128,A*!" now have a neck."!!G0T0115 

135 PRINTeZ+128,"I carnot draw a neck!"! 

HO PRINTeZ+19Z,B$0R"body."i!G0T0305 

115 (»aJB155!N=l!IFT=lTHENA(2)=N!GOT0305 

150 A(12)=N!GOTO305 

155 F0RY=ET0F!SET(18,Y)!SET(19,Y)!SET(22,Y)!SET(23,Y) 

160 >tXT!RETURN 

Lines 165-515! Head routine. 

165 PRINT" (head) ..,"! 

170 FH=lTHENPRINTeZ+128,A*DN"he3d.";!GOT0305 

175 IFN=lTHENPRINTeZ+128,A»;" now have a head."!!(a)TO190 

180 F'RINT0Z+128,"I cannot draw a head!"! 

185 PRINTeZ+192,B*OR"neck."!!(»TO305 

190 GOSUE.'500!H=i:iFT=lTfCNA(3)=H!(fflTO305 

195 A(13)=H!(aTO305 

500 F0RX=11T027!SET(X,K) !SET(X,K+5) !NEXT!F(]RY=K+1T0K+1 

505 SET(11,Y)!SET(15,Y)!SET(26,Y)!SET(27,Y)IfCXT 

510 SET(18,K+2)!SET(19,K+2)!SET(22,K+2)!SET(23,K+Z) 

515 SET(20,K+1)!SET(21,K+1)!RETIJI»( 

Lines 520-570! Am routine. 

520 PRINT" (arM) ,.."! 

525 IFA=2THENPRINTK+128,^$ON"arH."!!GOTO305 

530 IFB=lTI©fRINTez+128,"I will draw an 3rH,"J!GOTO510 

535 PRINTeZ+128,"I camot draw an 3r«!";!G0T011fl 

510 A=A+i:0NA(MSUB555,565 

515 IFT=1THENA(1)=A:GOT0305 

550 A(11)=A!GOT0305 

555 FC«X=6T07!FORY=FTOG+1!SET(X,Y)!NEXTY,X 

560 SET(8,G+1)!SET(9,G+1)!RETURN 

565 F0RX=31T035!F0RY=FT0G+1!SET(X,Y)!NEXTY,X 

570 SET(32,G+1)!SET(33,G+1)!RETIJRN 



Lines 575-635! Wheel routine. 



continued on next page 




^^^^^l Vl^i 



has the right tool for the job! 



1.STAD 



Unlock the power of the Z-80 with STAD (Symbolic Trace and 

Debug) a powerful monitor with special Debugging. Single step 

through the Machine Language programs. For tape and disk 

systems. 

16-48K on one S-80 Cassette $24.95 



2.Z80ZAPCMD 

Powerful disk modification utility In f^achlne Language allows you 
to READ, DISPLAY, ftflODIFY, WRITE, and COMPARE disk sectors. 
It will calculate Hash Index Codes. You can recover killed disk 
files. Search for a byte and have It Identified with a flashing cursor. 
Do disk backups, apply patches and fixes, and explore your disk. 
Instruction manual Included. 
S-80 16K Disk Machine Language $29.95 




6 South St .Milford. NH 03055 (603)673-5144 



TS€:IHP)ROSID€ 



TOLL FREE OUT-OF-STATE 1-800-258-1790 
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Taping 
Tutor 

by Roy Groth from . . . 




Wish you were a better typist, 
but don't want to tal<e (or pay for) 
a class? Teacti yourself to type 
witfi the aid of your 
microcomputer. With TYPING 
TUTOR you will be quizzed and 
graded, but you set the pace at 
which you learn. TYPING TUTOR 
is a set of programs that lets you 
become as good a typist as you 
wish, allowing you to advance 
from one level to the next when 
you feel comfortable with your 
skills. 

Let "hunt and peck" slip into 
the past, teach yourself speed and 
accuracy on the keyboard with 
TYPING TUTOR. 



S-80/1 6K/Gassette/Level 



.$19.95 




l^JS 



TStiUPlRDSIIX 



6 South Si Millord. NH 03055 (6031673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 



continued from previous page 

575 PRINT" (wheel) ..."; 
580 IFH=«TJCNPfaNTeZ+l28,A«)N"wheel.";;GOTO305 
585 IFB=ni©PRIMTK+128,"I will draw a wheel. "|:(aT0595 
590 PRINTeZ+128,"I carwiot draw a wheel !"}!(aT()110 
595 H=«+i;Oi««OSUB610, 615,620, 625,630, 635 
600 IFT=lTHENA(5)4i:(aTO305 
605 A(15)4i:(aTO305 

610 SET(10,J):SET(11,J>!SET(10,J+1)!RETIJRN 
615 SET(11,J):SET(15,J):SET(14,J+1){RETURN 
620 SET(18,J):SET(19,J)!SET(18,J+1)!RETIJRN 
625 SET(22,J):SET(23,J);SET(23,J+1):RETI)RN 
630 SET(26,J):SET(27,J)!SET(Z7,J+1):RETURN 
635 SET(30,J)!SET(31,J):SET(31,J+1):RETI)RN 
Lines 610-680! Scarner roLitine. 

610 PflINT" (scanrrer) ..."I 

615 FS=lTHOI>RINTK+128,A*0N"sc3nner."|:(fflT0305 

650 FH=1THENPRINT(?Z+12B,A»;" now have a scanner."! :(aT0665 

655 PRINTK+128,"! cannot draw a scanrer!"! 

660 PRINTeZ+192,B«)R"head."!!GOT0305 

665 (aSUB675!S=l!IFT=lTieW(6)=S:GOTO305 

670 A(16)=S!(aT0305 

675 F0RX=17T021!SET(X,C) :NEXT!F0RY=C+1T0C+2 

680 S£T(20,Y)!SET(21,Y)!>CXT:RETURN 

Lines 685-785! Instruction siibroutine. 

685 PRINTe61,"As everyone knows, a robot has 12 basic parts!" 

690 F«INT!PRINT" ","l body","l head" 

695 PRINT" ","2 art«","l scanner" 

700 F'RINT" ","1 neck", "6 wheels"!PRINT 

705 PRINT" Wien you assewble a robot, you Hust start with" 

710 PRINT"the body, otherwise yoLi have nowhere to attach the" 

715 PRINT"arHs, wheels, or neck.. Once yoj have attached the" 

720 PRINT"neck, you can then screw the head to the neck, and" 

725 PRINT"then put the scanner on top of the head." 

730 (»gjB780:(lS 

735 PRINT0132,"The object of this gaie is for you to finish" 

710 PRINT"buildinq your robot before I finish building nine." 

715 PRINT" I will roll a die for each of us in turn. Then" 

750 PRINT"! will tell you which part of the robot's body the" 

755 F'RINT"nu«ber rolled stands for, and whether or not that" 

760 PRINT"p3rt can be used. If it can, I will then draw that" 

765 PRINT"sectiori of the robot, in order that you nay watch" 

770 PRINT"to see which of us is closest to the co«pletion of" 

775 PRINT"buildiri9 the robot." 

Lines 780-7851 Subroijtine to delay proqraH execution. 

780 PRINTe919, "(press the space bar to continue)"! 
785 I«=INKEY$!IFI»=""THEN785ELSERETURN 

Lines 790-815! Gives the option of playing another 9a«e. 

790 PRINTei06,E»!!PRINTe531,E$!!PRINTI?598,E$; 

795 PRINTe726,Lt! !PRINT079O,L$1 !PRINT(?918,L$? 

800 PRINTe790,"Do you want to play again (Y/N) ?"J 

805«=INKEY»!IFI$="Y"ORI$="y"THEN110 

810 FI«O"N"ANDI»<:>"n"THEN805 

815 aS!PRINTei28,"Good-bye!"!PRINT!EM) 

Lines 820-850! Subroutine to FDKE lower case driver into 
RAN. 



820 LC=(PEEK(16561)+l)+PEEK(16562)i256 

825 IFLC>32767TICNLC=(65536-LC)i-l 

830 F(m=LCTOLC+10!READB!POKn,E!NE)a 

835 P0KE16111,PEEK(16561)+1!P0KE16115,PEEK(16562) .'RETURN 

810 DATA 221,110,3,221,102,1,218,151,1,221,126,5,183,10 

815 DATA 1,119,121,251,32,218,6,5,251,128,210,166,1,195 

850 DATA 125,1,82,105,107,0,80,105,101,112,99,101,33 



© 
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RS Plotter/Printer (26-1 190) $1339.00 

RS Quick Printer II (26-1 155) $209.00 

TYPRINTER 221 (9-221) $2495.00 

NEC 5510 SpinWriter (9-5520) $3095.00 

NEC 5530 SpinWriter (9-5530) $2595.00 

© CENTRONICS 730 (9-730) $659.00 

CENTRONICS 737 (9-737) $769.00 

OKIDATA Microline-80 (9-80) $489.00 

(2) OKIDATA Microline-82 (9-82) $669.00 

d) OKIDATA Microline-83 (9-83) $999.00 

OKIDATA SL300 (300 1pm) (9-SL300) $3795.00 

EPSON MX-70 (9-MX70) $419.00 

EPSON MX-80 (9-MX80) $519.00 

EPSON MX-80FT (9-MX80FT)$619.00 





NEC Tractor-Feed Option (9-5000) $229.00 

BDT Sheet-Feeder (NEC only) 0ption(9-5005) $1849.00 
Microline-80 or 82 Tractor-feed Option (9-80-T) $129.95 
Centronics Zip-Pack Ribbons (3-pack) . (21-01) $15.95 
SpinWriter Multi-Strike Ribbons (3) . . . (21-02) $18.95 

Microline Printer Ribbon (3-pack) (21-04) $12.95 

EPSON Printer Ribbons (2-pack) (21-05) $25.95 

TSeJHPIROSIIX 

6 South St .Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 



PICK 3o\sa 

PRINTER FftOM 
TS6*HAftDSIDC 
TODASJ! 




RS MOD-I Printer (36-pin) Int. Cable (26-141 1) $59.00 
RS MOD-I Printer (40-pin) int. Cable (26-1416) $59.00 
RS MOD-I & III Printer (36-pin) Cable (26-1401) $29.00 
RS MOD-I & III Printer (40-pin) Cable (26-1415) $29.00 

RS MOD-I & III LRC Printer Cable (9-10) $29.00 

APPLE Parallel Int. & Cable (36-pin) . (47-936) $100.00 
APPLE Parallel Int. & Cable (40-pin) . (47-940) $100.00 
APPLE Asynchronous RS-232C lnt(47-7710A) $159.00 
ATARI-Macrotronics Print. (36-pin) lnt(36-936) $69.95 
ATARI-Macrotronics Print. (40-pin) lnt(36-940) $69.95 



TERMS: Prices and spscifications are subject to change. HARDSIDE accepts VISA & 
MASTERCARD. Cenided ctiecks and Money Orders; Personal checks accepted (takes 3 
weeks to clear). HARDSIDE pays all stripping charges (within 43 states) on all PREPAID 
crders over (100.00. On all orders under S100.00 a t2.50 handling charge must be added. 
COD orders accepted (orders over $250 require 25Vi deposit) there Is a S5.00 handling 
charge. UPS Blue Label, Air Freight available at extra cost. 
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FLAGS 




by John Cope and William Morris 

"Flags" is an Apple program 
written in Applesoft and requiring 
at least 16K of RAM. 

Does your sense of geography 
extend beyond the borders of the 
United States? If not, or even if it 
does, this program could prove 
interesting. It will display flags 
from different nations on the 
screen and give you the names of 
four countries, one of which is 
represented by the emblem on the 
screen. Your task is to correctly 
choose to which nation the flag 
pertains. 

There are over 40 different flags 
in this program, which should 




provide a considerable variety of 
choices. While some of the actual 
flags contain detailed emblems not 
shown on the screen, we feel that 
the program overcomes this 
particular limitation quite well due 
to both the educational value and 
the pure fun of competition. 
Enjoy! 



String Variables 

A$: Flag to be identified. 

D$: Reference list for comparisons 

to be identified. 

E$: List of flags correctly 

identified. 

F$: List of flags incorrectly 

identified. 



Numerical Variables 

CO, CI, C2: Color variables. 

NU: Number of flags to be 

identified. 

CG: Number of correct 

identifications. 

TS: Total score. 

R, Rl: Random numbers. 



REM na FLAGS inxx 


28 IF SF THEN 70 


75 VTAB 21! HTAB 37! CALL - 868 


1 REM Mtx (C) JOHN COPE S MILL 


29 GOSUB 21000! GGSUEi 21030 


! PRINT POL (1) 


lAH MORRIS ttx 




80 NU= POL (D! IF PEEK ( - 16 




The qa«e paddle button is used to 


286) < 128 THEN 75 


Dinension refererce list. 


register ari answer to the 


85 DIME*(NU),F$(NU)! GOSUB 2101 




instruction qLestion, If a 'yes' is 







entered, the progran branches to 


90 PR = PR + 1! IF PR = NU + 1 THEN 


10 DIM D»(50): GGSUE: 20000 


21010. 


8000 
Restores data pointer and chooses the 


Set backqrot-rd color for graphic 


30 F-RINT "INSTRUCTIONS REQUIRED? 


flag to be indentified. 


display and draw flag outliriei 


II 






10 PRINT ! INVERSE ! HTAB 3! PRINT 


100 RESTORE !R1 = INT (( Rfffi W 


20 sc = li: GosuB iiooo: GOSUB 21 


"F'RESS GAME PADDLE EDTTON TO 
CHOnSF"! MiVL 


) I 16) + 1) 


000! WLIN 5,39 AT V, HLIN 5, 
38 AT 5! VLIN 5,30 AT 38! HLIN 
5,38 AT 30! IF FG THEN 70 


50 FLASH ! VTAB 21! HTA8 27! F-RINT 
"YES"!X = PED( ( - 16286)! IF 
X > 127 THEN 70 


Reads through sound data arid flag 
data until the flag to be 
identified is found. 


25 HLIN 8,11 AT 7! VLIN 7,25 AT 


60 GOSUB 21090! VTAB 21! HTAB 27 




8! W_IN 8,10 AT 15! CtLOR= 1 


! CALL - 868! PRINT "NO"! NdMAL 


105 FOR X = ITO 33! READ Z! NEXT 


1! VLIN 7,25 AT 13! HLIN 13, 


!X = PEEK ( - 16286)! F X > 




17 AT 25! COL0R= V, VLIN 7,2 


127 THEN GOSUB 21010 !SF = 1 


110 FOR Z = 1 TO Rl! READ A»,C0, 


5 AT 19! VLIN 7,25 AT 23! HLIN 


! GOTO 20 


C1,CZ! NEXT 


19,23 AT 7 


65 GOSUB 21090! GOTO 50 




26 HLIN 19,23 AT 15! COLOR= 6! VLIN 


%J^J \J^J\J^,^L^ k A V f V V *JU 1 *J U*/ 


If the flag has vertical bars branch 


7,25 AT 25! VLIN 17,25 AT 29 




to 2000. 


! HLIN 25,29 AT 25! HLIN 27, 


Sets the display for the text 




29 AT 17! HLIN 25,29 AT 7! W.IN 


window. Gane paddle (1) is used to 


130 IF Rl < 18 THEN 2000 


17,19 AT 27 


set the nuHber of flags to be 




27 COLOR- 13! HLIN 31,31 AT 7! HLIN 


displayed (NU). Line 80 continues 




31,31 AT 25! HLIN 32,31 AT 1 


the loop until the button is 


Horizontal flag stripe rot-itire. 


5! VLIN 7,15 AT 31! VLIN 15, 


pressed. 




25 AT 31 




1000 COLOR= CO! FOR Z = 6 TO 13! 




70 mE ! GOSUB 21010! INVERSE ! 


HLIN 5,37 AT Z! NEXT ! COLOR= 


If the variable SF=1 then the 


PRINT "NIBIBER OF FLAGS TO B 


CI! FOR Z = 11 TO 21! HLIN 5 


proqraM skips over the anthed 


E IDENHFIED IS "! NORMAL ! F1?INT 


,37 AT Z! NEXT ! CCM.OR= C2! FOR 


rotitine. The flag is set only if 


"USE PADDLE (1) TO ADJl^T TH 


Z = 22 TO 29! HIN 5,37 AT Z 


the instruction routine is 


IS TOTAL"! HTAB 7! FLASH ! FI^M 


! NEXT 


called. 


"PRESS BUTTON TO CONTINUE" 


1010 F Rl < 27 THEN GOSIIR 3000 
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1050 IF Rl > 36 THEN GOSUB 100(1 


1090 


COLOR= 13: FOR Z = 13 TO 23 


Sets the top of the screen window. 






: HLIN 5,37 AT Z: NEXT : GOaJB 


check.s to see if the screen liwit is 


1990 GOTO 9000 




3000: RETURN 


exceeded arrf toggles the speak.er. 




1100 


Ca.OR= 12: FOR Z = 5 TO 17: 
VLIN 6,29 AT Z: NEXT : COLOR= 




Vertical flag stripe routine. 




i: HLIN 15,20 AT 15: HLIN 15 


8000 TEXT : HOME : HTAB 15: mtRSE 






,20 AT 20 : VLIN 16,20 AT 15: 


: (AJSUB 21010: print "game s 






RETURN 


UW1ARY": fWRMAL : F^OKE 31,i: 


ZOflO COLOR= CO: FOR Z = 5 TO 15: 






IF V = then 8010 


VLIN 6,29 AT Z; NEXT ; COLOR= 






8005 VTAB 5: PRINT "YOU CORRECTL 


CI! FOR Z = 16 TO 26: yilN 6 






Y IDENTIFIED Tf€ FOLLOMIfffi": 


,29 AT Z! NEXT : COLOR= C2: FOR 


SoLiTid and otfwr data. 


PraNT "EME1.EMS" 


I = 27 10 371 VLIN 6,29 AT Z 






8010 VTAB lO: FOR X = 1 TO V: PRINT 


! >£XT 






x:". ";e*(X): if peek (37) <: 


2050 IF Rl< 8 TJCN GOSUB 3000 


5000 


DATA 173,18,192,136,208,5,2 


17 then 8030 


2990 GOTO 9000 




06,1,3,210,9,202,208,215,171 
,0,3,76,2,3,96,81,118,96,80, 


8020 GosuEi 21110:: home : mtm. 






121,160,96,160,81,160,60,255 


8030 NEXT : GOSUB 21110 


RoLitine to draw ewbleti. 






8010 FOR X = 1 TO 150 : NEXT : IF 




5001 


DATA hEnC0,12,15,9 


W = THEN 8O90 




5002 


DATA E;AR-PAD0S,3,13,3 


8015 Hm. : PRINT "YOU DID NOT I 


3000 COLOR= i: HLIN 18,21 AT 15: 


5001 


DATA GUATEMALA,7,15,7 


DENTIFY THE FOLLOWING": PRINT 


HIN 18,21 AT 20 : VLIN 16,2 


5006 


DATA PERU,9,15,9 


"E1«LEMS": GOSUB 21020 


AT 18: RETURN 


5008 


DATA CAt€R(MN,12,9,13 


8050 VTAB lO: FOR Z = 1 TO H: F-RINT 




5010 


DATA RWAM)A,9,13,12 


z;". ":f»(Z): if peek (37) < 




5012 


DATA SENEGAL, 12, 13,9 


17 THEN 8080 


Routine to draw non-standard 


5011 


DATA IR'ELW«),12,15,9 


8060 GOSUE: 21110: HOME 


flags (Haiti, Japan, Malta, Spain 


5016 


DATA ITALY, 12, 15,9 


8080 >EXT : GOSUE: 21110 


and Portugal). 


5018 


DATA AND(KRA,6,13,9 


8090 POKE 31, O: HOME ; VTAB 12: PRINT 




5020 


DATA CHAD,3,13,9 


"PRESS BUTTON FOR ANOTHER SE 


1000 ON (Rl - 36) GOTO 1010,1020 


5022 


DATA GUINEA,9,13,12 


QUENCE": FOR Z = 1 TO 9:X = 


,1030,1010,1050,1060,1070,10 


5021 


DATA IVORY C0AST,9, 15,12 


FtEK ( - 16336): FOR A = 1 TO 


80,1090,1100 


5026 


DATA MALI,12,13,9 


75: NEXT : NEXT : GOSUB 2113 


1010 Ca.OR= O: FOR Z = 5 TO 20 : VLIN 


5028 


DATA NIGERIA, 12, 15,12 


O: RUN 


6,29 AT Z: NEXT : RETURN 


5030 


DATA BELGIUM, 0,13,9 


8100 END 


1020 OLOfiP 9: FOR Z = 13 TO 21 : 


5032 


DATA FRANCE,3,15,9 




HLIN 18,21 AT Z: NEXT : COLOR= 


5031 


DATA INDIA,9,15,12 


Main ga«e loop section, A comori 


15: FIOT 18,13: PLOT 18,2i: PLOT 


5036 


DATA EGYPT,9,15,0 


centering roLitine is used in lines 


21,13: PLOT 21,2i: RETIIW 


5038 


DATA B0LIVIA,9,13,12 


9050 and 9200 with the paddle 


1030 CtLOR- 9: FOR Z = 21 TO 37: 


5010 


DATA NIGER,11,15,12 


button being ijsed to register 


VLIN 6,29 AT Z: NEXT : COLOR= 


5012 


DATA VENEZLELA, 13,3,9 


input. 


5: MLIN 7,12 AT 9: HLIN 7,11 


5011 


DATA E1LGARIA,15,12,9 




AT 9: COLOR= 9: PLOT 9,9: RETURN 


5016 


DATA EAST GERMANY, 0,9, 13 






5018 


DATA YUG0SLAUIA,3,15,9 


9000 IF R > 32 THEN RESTORE : FOR 


1010 mm= 15: for z = 9 to 12: 


5050 


DATA PARAGUAY, 9, 15,7 


X = 1 TO 33: READ Z: NEXT 


UQN 6,29 AT Z: NEXT : FOR 


5052 


DATA LUXe®0URG,9,15,7 


9010 Did) = A$: FOR X = 2 TO 1 


Z = 16 TO 20: HLIN 5,37 AT Z 


5051 


DATA hETHERLAi«S,9,15,7 


9015 Z = INT (( RND (1) i 152) / 


: f£XT : COLOR= 9: GOTO 1055 


5056 


DATA >CST GERWlNY,0,9,13 


1 + 1) 




5058 


DATA ETHIOPIA, 12, 13,9 


9018 IF D*(Z) = D$(X - 1) THEN 9 


1050 COL[»^ 15 


5060 


DATA GAeON,12,13,7 


015 


1055 FOR Z = 10 TO 11 : VLIN 6,29 


5062 


DATA SIERRA LE0^E,12,15,7 


9020 D»(X) = Dt(Z): fCXT 


AT Z: NEXT : FOR Z = 17 TO 


5061 


DATA SUDAN,3,13,12 


9030 H»E : INVERSE : HTM: 6: PRINT 


19: HLIN 5,37 AT 1\ NEXT : RETURN 


5066 


DATA AUSTRIA,9,15,9 


"WHAT COMRY FLIES THIS FLA 




5068 


DATA UPPER V{LTA,0,15,9 


G?": F'RINT : PRINT "»»»» 


1060 COLOR- 7: VLIN 6,29 AT 15: HLIN 


5070 


DATA a SALVAD(K,7,15,7 


»»";: HTAB 28: F^RINT "«« 


5,37 AT li: GOTO 1085 


5D80 


DATA HAITI, 1,1,1 


<««««";: NiKMAL : print 


1070 COL0R= 13: GOTO 1085 


5090 


DATA JAF'AN, 15,15,15 


" PRESS GAME PADDLE EtlHON 


1080 Ca.OR= 15 


5100 


DATA MALTA, 15,15,15 


TO CHOOSE"; 


1085 FOR Z = 16 TO 18: VLIN 6,29 


5110 


DATA ICELA>a),3,3,3 


9010 R = INT ( Riffi (1) XI + 1) 


AT Z: )CXT : FC» Z = 15 TO 


5120 


DATA DENMARK,9,9,9 


9050 HTAB (20 - ( LEN (D»(R)) / 


is: HLIN 5,37 AT Z', NEXT : IF 


5130 


DATA FINLWffl, 15,15, 15 


2)): VTAB 23: PRINT D*(R): GOSUB 


A$ = "NORWAY" THEN COLOR= 3 


5110 


DATA SVEDEN,7,7,7 


21090: VTAB 23: HTAB li: PRINT 


: VLIN 6,29 AT 17: HLIN 5,37 


5150 


DATA N0RWAY,9,9,9 


":X = PEEK ( - 


AT 16 


5160 


DATA SPAIN,9,9,9 


16286)! IF X > 127 Tf€N 9070 


1086 RETURN 


5170 


DATA P0RTUW1,9,9,9 


continued on next page 
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continued from previous page 

9060 R = R + 1! IF R > ^ THEN R = 
1 

9065 GOTO 9050 

9070 TS = TS + i: FLASH ! IF D*(R 
) = A* THEN CG = CG + i: GOSUB 
12000: VTAB 22: HTAB 16: PRINT 
"CORRECT!": GOSUE; 21010: GOTO 
9220 

9200 VTAB 22: HTAB 16; PRINT "IN 
CORRECT": GOSUe 13000: GOSUEi 
21020: VTAB 22: HTAB 13: PRINT 
"CORRECT ANSWER": VTAB 23: HTAB 
(20 - ( LEN (A$) / 2)): NORMAL 
: PRINT A$ 

9z20 gosub 21090: gosue: 21090: vtab 
22: flash ; f'rint "correct " 
;cg;: call - 868:: htae: 25: 

PRINT "TOTAL GUESSES ";TS: NORMAL 
: GOSUB 21090: NORMAL : GOTO 90 

Machine lanqt-iage roijtirie to set 
background color. 

11000 REM m SCREEN COLOR 
11020 POKE 768,216: POKE 769,160 

; POKE 770, O: POKE 771,76: POKE 

772, ti: POKE 773,251 
11050 GR 
11100 POKE 1021,SC + SC x 16: POKE 

60, 0: ?m. 61,^: poke 62,25t 

: POKE 63,7; POKE 66, i; poke 

67, i: CALL 768 
11110 HOME : RETURN 




Incretients list of correct 
identificatioris. 

12000 V = V + i:e$(V) = A$; return 



IncreMCTits list of iTCorrect 
identifications. 

13000 W = H + 1;F$(H) = D$(R): RETURN 

Establishes reference list D$ to be 
Lised in nain ga«e loops. 

20000 FOR X = 1 TO 33; READ Z: NEXT 
: FOR X = 1 TO 16; READ B$,C 

o,ci,c2:d$(X) = B$: next ; restore 
: return 

Initialize sourid routine. 



21000 restore ; for Z = 770 TO 7 

90 : READ x: POKE z,x: next : 
return 
21010 for x = 100 to 50 step - 

2: poke 768,X: poke 769,9; CALL 

770: next : return 

21020 for X = 25 to 225 STEP 5; POKE 

768,X: POKE 769,9: CALL 770; 

NEXT ; RETURN 

21030 FOR X = 1 TO 6: READ Z,Y: POKE 

768,Z: POKE 769,Y: CALL 770: 

NEXT : RETURN 

InstrLictiorrs. 

21010 TEXT ; HOME : HTAB 12; PRINT 
"WELCOME TO ";; INVERSE ; PRINT 
"FLAGS": NORMAL 

21050 VTAB 5: PRINT "UPON ENTERI 

NG THE NUMEtR OF NAHONAL": PRINT 
"EMELEMS YOU WISH TO IDENHF 
Y, A FLAG"; PRINT "HILL BE D 
ISFIAYED ON THE SCREEN." 

21060 PRINT "YOU HILL BE PRESENT 
ED WITH 1 POSSIBLE"; PRINT " 
CHOICES. PRESSING THE PADOLE 

BUnON": PRINT "WILL INOICA 
TE YOU^ CHOICE. AFTER AN": PRINT 
"INCORRECT GUESS, THE 04J.EM 

HILL E£" 

21070 PRINT "IDENHFIED FOR YOU 
BEFORE PROCEEDING": F'RINT "T 
THE hOT FLAG.": PRINT : PRINT 
"A STANDARD FORM OF CREST WI 
LL BE": PRINT "PLACED IN THE 
CENTER OF ALL EMELEMS"; PRINT 
"WITH THAT FEATURE"; GOSUB 2 
1110 



21080 P = i: RETURN 

21090 FOR X = 1 TO 1500: NEXT : RETURN 

21100 FOR Z = 1 TO 250 : NEXT : RETURN 



Paddle button read routine. This 
si.ibroutine is accessed by several 
sections which require an input 
froM the button to continue. 



21110 VTAB ( PEEK (37) + 6) 
21120 FLASH ; PRINT "PRtSS GAME 

PADDL£ BUTTON TO CONTINUE": NtM^'MAL 

21130 IF PEEK ( - 16286) < 128 THEN 

21130 
21 HG POKE - 16286,0 
21150 RETURN ^ 




continued from page 59 

16095 NEXT T 
16100 PRINT 
16300 RETURN 

Apple statertents. 

17000 PRINT :PNT$=" THAM< YOU FOR THE 
EXCITING GAME,": GOSUE! 16020 

17010 PNTt="LET'S PLAY AGAIN SOMETIME. 

": GOSUE; 16020 
17030 RETURN 

17100 PRINT ;PNT$="HA HA HA, M)MIT IT, 
I FLAY A PRETTY ": GOSUB 16020 

17110 PNT$="GO(S) GAME OF SKIM;. I'M HA 

RD TO BEAT."; GOSUB 16020 
17110 RETURN 
17200 PRINT :PNT*="I BEAT YOU, HOW ABO 

UT ANOTHER": GOSUE: 16020 
17210 PNT»="GA^ffi:? YOU'RE NOT A BAD PL 

AYER.": GOSUB 16020 
17210 RETURN 
17300 PRINT ;PNr«="HOW ABOUT ANOTHER R 

OlM). I ENJOYED ": GOSUB 

16020 
17310 PNT*="THAT GAME TREMENDOUSLY. 

": GOSUE: 16020 
17330 RETURN 

Set-up screen. 

21000 CCLa<=1 

21010 FOR T=fl TO 39 

21020 VLIN 0,39 AT T 

21030 fEXT T 

21050 VTAB 2i: TAB 5-( LEN(PLR1$) 

/Z)\ PRINT PLRl* 
21060 VTAB 21 : TAB 15-( LEN(F1R2$ 

)/2): PRINT fUiZi 
21070 IF PLR=2 THEN GOTO 21150 
21080 VTAB 21 ; TAB 25- ( LEN(PLR3$ 

)/2): PRINT PLR3* 
21090 IF PLR=3 THEN GOTO 21150 
21100 VTAB 21 ; TAB 35-( LEN(PLR1* 

)/2): PRINT PLR1* 
21150 VTAB 23; TAB i; PRINT "GAME= " 

;sc 
21180 m\m 

Poke sound routine. 

22000 POKE 0,pp; POKE 1,D0: CALL 
2: RETURN 

22100 POKE 2,173; POK'E 3,18; POKE 
1,192; POKE 5,136; POKE 6,208 
: POKE 7,i: POKE 8,198: POKE 
9,i; POKE 10,210 

22150 POKE 11,8; POKE 12,202; POKE 
13,208; POKE 11,216; POKE 15 
,166: POKE 16, O; POKE 17,76 
; POKE 18,2: POKE 19, 0; POKE^^ 
20,96: RETURN M 
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KEYBOARD 








RESOLUTION 








PASCAL 






OUTPUT 










VECTOR 










ASSEMBLER 




MICROPROCESSOR 




FLOWCHART 








COMPILER 




SOFTSIDE 










CONCATENATION 




JOYSTICK 




BYTE 












STRING 












VARIABLE 




NYBBLE 










COMMAND 








ADDRESS 




BINARY HEXADECIMAL | 


EXECUTION 








DEBUG 






OCTAL 












RANDOM 










SUBROUTINE 


DATA 












ERROR 












FORMAT 






PRINTOUT 










GRAPHICS 










PARAMETER 


INTERFACE 








KEYWORD 










TERMINAL 




DISK 














INITIALIZATION 




PERIPHERAL 


MONITOR 


































Solution in next month 


's issue. 



The Lazy 
Man's 
Shortcut 
to Machine 
Language 




A BASIC Compiler in BASIC! 
Run your source program In 
BASIC, compile it into FAST Z-80 
Code and execute the compiled 
version — all without reloading. 26 
integer variables, GOTO, GOSUB, 
END, REM, RND, LET, +, *, /, 
IF, THEN, =, INKEY$, CLS, 
PRINT®, CHR$, PEEK, POKE. 
Compiled programs may by saved 
via TAPEDISK, 

Supplied with game program, 
"3-D TIC TAC TOE", which uses 
all of the TINY COMP statement 
set and is ready to compile. 

Manual includes several sample 
programs as well as thorough 
documentation of the Compiler for 
those who like to know "how things 
work" and for those who might 
even wish to EXPAND on TINY 
COMP's capabilities. 

16K, S-80 Cassette $19.95 

32K, S-80, Disk $24.95 




jl^^^J vr^^^ 



6 South St .Milford. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-B0O-258-179O 
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BATTLE AT SEA 




by Jon Voskuil 

"Battle at Sea" is written in 
Applesoft and requires 16K of 
RAM. 

You may have played it with 
pencil and paper. You may have 
played it with red and white plastic 
pegs and grey plastic ships. You 
may even have played it with bells 
and whistles in an electronic form. 
But now, dear friends, you can 
play a computer-enhanced and 
expanded version of the classic 
game of "Battleship" on your very 
own Apple. 

Enhanced? Expanded? Ah, yes, 
you heard correctly. It used to be 
that this classic sea battle game 
was just for two players. Now, you 
can play with as many as six. And 
one of the fleet commanders can 
be the Apple itself, as it strives to 
prove that computers will indeed 
take over the world — beginning 
not in space, as some would have 
us believe, but in the mid-Atlantic. 

Such introductory hoopla over 
with, let's look at the play of the 
game and the operation of the 
program. 

PLAYING THE GAME 

After typing in the code and 
commanding the program to RUN 
(and then ridding it of all the bugs 
which infest such keyboard-entered 
entities), you will be greeted with 
the title page, along with a tune 
reminiscent of moonlit 
waterfronts, tall sailing ships, 
sinking destroyers, and burning oil 
freighters. The instructions will be 
displayed, and then all the players 
enter their names. (These are 
truncated to eight letters, so if 
your name is Michelangelo you'd 
be better off to enter "Mike" than 
to end up with "Michaela".) You 
enter "Apple" as one of the names 
if you want the computer to play 
along. 

The next step is for everyone to 
position their ships on their 
10-by-lO grid. This is done by one 
player at a time, while the others 
turn their backs. You just enter the 
endpoint coordinates for each ship. 
For example, a submarine (three 
units long) could be placed from 
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A2 to A4 vertically, or maybe 
from C5 to E7 diagonally. The 
Apple also positions its ships in 
turn, hiding behind the TV screen 
as it does so. Incidentally, even 
though part of the Apple knows 
where all the ships are for all the 
players, its left RAM doesn't know 
what its right RAM is doing when 
it comes to aiming shots at its 
opponents. 

Following these preliminaries, 
the battle gets under way. Each 
player, in turn, first presses the 
paddle button to show that he's 
ready. The reason for this is that 
with more than two human 
players, the paddles must be 
shared. So this step just lets the 
computer know who's who. The 
player then selects (via the 
spacebar) the grid upon which to 
wreak destruction, and then aims 
the sights (via either paddle) and 
fires (using the paddle button). 
The wailing of a falling bomb is 
followed either by an ineffectual 
splash or a monitor-shattering 
explosion, with an appropriate 
printed message. 

Play continues from player to 
player until one emerges 
victorious. Players whose fleets are 
entirely destroyed are 
automatically removed from play, 
and must watch from their floating 
debris while the remaining fleets 
battle it out. The final winner is 
rewarded with a little melody 
reminiscent of moonlit 
waterfronts, oil freighters, etc., 
and (as you might expect) the little 
blinking cursor finally returns to 
await your next command. (This is 
the way the world ends...?) 

PROGRAM NOTES 

The program is set up so that a 
main control section (lines 100-340) 
calls various subroutines which do 
the different tasks required. These 
are all appropriately labelled in the 
line listing which follows. 

A considerable amount of the 
coding is involved with positioning 
the cursor (the gun sight) at the 
proper place on the proper grid. 
This can get a little involved, 
especially since different grid 
arrangements are used for different 
numbers of players. (The display 
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looks so much nicer when it's 
arranged symmetrically.) The 
upper-left-corner coordinates for 
each of the grids are determined in 
lines 3000-3070, which are then 
stored in the H( ) and V( ) arrays. 
Positioning the cursor within a 
given grid, then, simply involves 
adding these base values to the 
"relative" cursor coordinates 
determined by the paddle position. 

The Apple's move strategy 
(subroutine 5(X)0) is the single most 
involved part of the program. I 
hope I'm not giving away any 
military secrets by telUng you that 
it will choose to fire upon the grid 
which has the least number of hits. 
It will then determine if there are 
any wounded (hit but not sunk) 
ships, and if so will fire upon one 
of them. If the ship already has 
multiple hits, then it will try 
another shot along the same line. 
If the ship has only one hit, then it 
will determine the placement of its 
bomb by finding the longest 
stretch of uninterrupted sea and 
firing on that side of the first hit. 
You clever strategists out there 
ought to be able to figure out a 
way to use this military intelligence 
against your friends when you're 
all playing with the Apple. 

The Machine Language sound 
generating routine first appeared in 
SoftSide last August. It makes use 
of the Apple's ampersand (&) to 
jump to the routine and to plug in 
the pitch and duration of the tone 
that you want. The advantage of 
this method, over the more 
common one that requires a couple 
of POKES and a CALL, is speed. 
You get less of a pause or "click" 
between notes, and it seems to be 
the best way to make melodies — 
short of a complete Machine 
Language routine. For more on the 
ampersand, see the Applesoft and 
Apple II reference manuals, and 
the April, 1980, Apple Edition of 
SoftSide. 

One additional note. 
Occasionally the Apple will really 
get clever and set up its ships so 
that two of them overlap 
diagonally. (Computers tend to 
have an unrealistic world- view.) 
Just thought I'd better tell you 
that before you found it out 
yourself. 



VARIABLES 

A$: Used to draw grids. 
APPLE: Apple's player number. 
AX.AY: Absolute values of X, Y. 
CHOICE: Type of ship which 
Apple chooses to fire upon. 
DEAD: Number of dead 
(destroyed) fleets. 
G: Grid number. 
G%(x,y,p): Array giving ship 
status at coordinates x, y on player 
p's grid, as follows: 

5 - aircraft carrier 

4 - battleship 

3 - submarine 

2 - cruiser 

1 - destroyer 

- open sea 
-1 - hit destroyer 
-2 - hit cruiser 
-3 - hit submarine 
-4 - hit battleship 
-5 - hit aircraft carrier 
-6 - hit open sea (i.e., a miss) 



H,HH,HO,OH: Used in horizontal 

positioning of cursor. 

H(g): Horizontal location of grid 

g- 

HITS: Number of hits sustained. 

HITS(s,p): Hits sustained by 

player p's ship type s. 

I, J: General loop counters. 

KEY: ASCII value of key pressed. 

LEAST: Used to find grid with 

least hits. 

MAX: Used to find direction of 

maximum open sea from hit ship. 

N: General-purpose temporary 

variable. 

NP: Number of players. 

OUT(i): Array containing numbers 

of players whose fleets are 

destroyed. 

P: Player number. 

PI,P2: Values for sound routines. 

PL$(p): Player p's name. 

PN: Paddle value. 

POK$: Used to contain data to 

poke into memory. 



R, Rl, R2, R3, R4: Random 

numbers. 

R$: String used to read data. 

S: Ship type (see G%). 

S$(s): Initial letter of ship type s. 

SIZ(s): Size of ship type s. 

SS$(s): Name of ship type s. 

Tl, T2: Values for sound routines. 

V, VV, VO, OV: Used in vertical 

positioning of cursor. 

V(g): Vertical location of grid g. 

X: Used for x-coordinate 

calculations. 

X$: X-coordinate input variable. 

XI, X2, XD, XI, XX: Used for 

x-coordinate inputs and 

calculations. 

X(i): X-coordinates of hits on a 

ship, used in calculating Apple's 

move. 

Y, Y$, Yl, Y2, YD, YI, YY, 

Y(i): All correspond to respective 

x-variables. 

Z: Time-delay loop counter. 

Z$: General input variable. 



10 HOME ! GOTO 100 


210 GOSUB 3000 


1050 HOME : VTAB 3 




220 P = 1 


1060 PRINT " EACH PLAYER HAS 
A 10-BY-lO GRID ON": PRINT 


Stihroutine to wait for ke^ress. 




1070 PRINT '•m.0\ TO PLACE FIVE 




Main control loop. 


SHPS: A DESTROYER," 
1080 PRINT "A CRUISER, A SUBMARI 


Zfl VTAB 21 : PRINT " >» PRESS 






ANY KEY TO CONTINUE <«"! 
30 ff PEEK ( - 16381) < 128 THEN 
30 


230 F P = (APPLE) THEN GOSUB 5 
ODD! GOTO 250 


continued on next page 




UUUt wU 1 U Luv 

210 CnSUB 1000 




/■ ">| K >' V" "N 


10 POKE - 16368,0 t ktlURN 


250 GOSUB 6000 




^^^Mi 








wi i 




Initialization 1 


260 P = P + 1! IF P > W> THEN P = 

1 
270 F DB» = THEN 230 
280 FOR I = TO DEAD - i: IF OU 


/ 


V >L 








1 ^ 


-• 


r 


ecord 


ings 




100 DIM GZ(9,9,6),HnS(5,6),Sn( 
5),S$(6),PL$(6),V(6),H(6),SS 


T(I) = P THEN P = P t i: F 
P>NPTHENP = 1 
290 feai 




duplicating service 

307 West Main Street 
Maple Shade, NJ 08D52 




»(5),00T(1),X(5),Y(5) 


300 GOTO 230 




(609)667-1667 




110 SS$(1) = "DESTROYER "tSSi(2) 










= "CRUISER "5SS*(3) = "S 






O • AMP "Data-settle" blank 




lfW«INE ":SS«(1) = "BATTLE 


End of gane, 




cassettes for digital use 




SHP ":SS$(5) = "AIR.CARRIER 

II 






© • Cassette Storage Boxes 




120 St(l) = "D":S$(2) = "C":S$(3) 


310 VTAB 22; HTAB i: PRINT SPC( 




j^"^ ._. ^S ^_^_AL_ 1 ^.^_l.^ 




= "S":s»(i) = "B":s»(5) = " 


119)5: VTAB 23: HTAB 7 




© • Cassette Labels - 

Custom printing & blank 




A":s»(6) = ":":s*(0) = "+" 


320 Rm\ : PRINT PL»(P):" IS TH 






130 siz(i) = 2:sn(2) = sssno) = 


E VICTOR!!!";: NOWWL 




• Custom Record Album 




atsizd) = i:sn(5) = 5 


330 GOSUB 7500 




production from your tapes 




110 At = "++++++++++" 
150 GUSUB 7700 


310 VTAB i: END 




• Stereo and Spoken Word 
cassette duplication 




160 GOSUB 1000 


Print instructions. 








170 ^mV, 2000 






Call or write to: 




180 HOME J VTAB 85 FLASH J PRINT 
SPC( 10);j PRINT " ALLH 
ANDS TO BATTLE STAHONS!! 

"\l PRINT SPC( 10);: NORMAL 


1000 HOME ; VTAB 8 

lOlO PRINT TAB( 8);"B A T T L E 

AT SEA" 
11)20 VTAB 12: PRINT TAB( 13);"B 
Y JON VCBKUIL" 




for more Information. 

All cassette work at 




190 RnaiB 76flO: GOSUB 7600 
200 HOC 


1030 GOSUB 7500 

1010 FOR Z = 1 TO IflOO; lEH 1 




V 


AMPR.&D. is custom work 
to fit your needs. / 
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continued from previous page 


2010 H = 20!V = 8! GOSUB 3500 


2310 P Y = AND X = Sn(S) - 1 


NE, (\ BAHLESHP,"! PRINT 


2050 


VTAB 7! HTAB 20! PRINT "ABC 


Tf0 238fl 


1090 PRINT "AND AN AilOtfT CARR 




DEFGHIJ"! 


2350 P Y = X AND X = Sn(S) - 1 


lER.": PRINT 


2060 


FOR I = TO 9! VTAB 8 + I! 


TtCN2380 


1100 PRINT " PLAYERS IfHE TUR 




HTAB 19! PRINT Ij! HTAB 30! 


2360 VTAB 15! HTAB 1! FLASH t PRINT 


NS mim TO BLAST": PRINT 




PRINT IJ! NEXT I 


"> TRY AGAIN! <"{! NORMAL 


1110 F'RINT "EACH OTHER'S SHIPS 


2070 


VTAB 18! HTAB 20! PRINT "A6 


2370 FOR Z = 1 TO 2000! NEXT Z! VTAB 


FF THE MAP. FROM" 5 PRINT 




COEFGHIJ"! 


15! HTAB 1! PRINT SPC( ID! 


1120 PRINT "THO TO FIVE HITS ARE 


2080 


VTAB 21! HTAB 1! PRINT PLi( 


GOTO 2110 


NtLDED TO SINK A": PRINT 




P)J", H'S YOUR TURN TO SET 


2380 P GZ(X1,Y1,P) < > OR G% 


1130 PRINT "SHP, DEPENDING ON I 




UP YOUR" 


(X2,Y2,P) < > THEN 2360 


TS nPE. THE HINNER" 


2090 


PRINT "SHIPS. TYPE IN TWO 


2390 P Sn(S) = 2 THEN 2120 


IHO PRINT "IS THE PLAYER WO SU 




Ltl ltR/Nl»e£R PAIRS TO POSH 


2100 FOR I = 2 TO S - 1! P GZ(X 


RVIVES WE. LONGEST." 




ION TJ€ END POINTS OF EACH S 


1 + (I - 1) I XD / (Sn(S) - 


1150 OJSUB 20 




HP IN TURN. (OTHER PLAYERS 


1),Y1 + (I - 1) I YD / (sn( 


1160 HOME : VTAB 3 




, TURN AMAY!!!)"! 


S) - 1),P) < > THEN 2360 


1170 PRINT " UP TO SIX PLAYER 


2100 


FOR Z = 1 TO 1500! NEXT Z 


2110 NEXT I 


S MAY PARnCIPATE,"! PRINT 


2110 


FOR S = 1 TO 5 




1180 PRINT "ENILRING 'APPLE' FOR 


2120 


VTAB 8! HTAB 3! PRINT SS$(S 




ONE NAME HILL MAKE"'. PRINT 




)! 


Draw ship on grid and place it into 


4 A f\A PU^a^*%>^ 11%/^ rw w^ f^^^ ^'< iv~ r\M A \t^r^ 


2130 


VTAB 9! HTAB 2! PRINT " 

II. 


nenory. 


1190 PRINT "ME ONE OF THE PLAYER 




1 




S, PRESS 'RETURN'"! PRINT 


2110 


VTAB 11! HTAB 3! PRINT "FRO 




1200 PRINT "BY HSELF Wm THtKt 




M!"i 


2120 GZ(X1,Y1,P) = S!G5:(X2tY2,P) = 


W^ NO MORE NAMES." 


2150 


VTAB 11! mm 9! GET X»!X1 = 


S! VTAB Yl + 8! HTAB XI + ZO 


1210 P = r.APPLE = O; PRINT J PRINT 




ASC (X$) - 65 


! PRINT S$(S)i! VT/C Y2 + 8! 




2160 


P Xl< OR XI > 9 THEN 21 


HTABX2 + 20! PRINT S$(S);! 


Irfut players' na«es. 




50 


P Sn(S) = 2 THEN 2110 




2170 


VTAB 11! HTAB 9! PRINT X$5 


2130 FOR I = 2 TO SIZ(S) - 1!XX = 




2180 


VTAB 11! HTAB 11! GET Y«!Y1 


XI + (I - 1) X XD / (Sn(S) - 


1220 PRINT "PLAYER *";p;! INPUT 




= ASC (Y$) - 18 


1)!YY = Yl * (I - 1) X YD / 


": "JPL*(P) 


2190 


P Yl = - 10 TICN 2150! REM 


(Sn(S) - 1)!GZ(XX,YY,P) = S 


1230 IF PL$(P) < > "" THEN 1260 




BACKSPACE 


! VT« YY + 8! HT« XX + 20! 




2200 


P Yl< OR Yl > 9 THEN 21 


PRINT S»(S);! NEXT I 


1210 IF P < 3 THEN 1220 




80 


2110 VTAB 11! HTAB 3! PRINT SPC( 


1250 P = P - IJ GOTO 1310 


2210 


VTAB 11! HTAB 11! PRINT Y*J 


10)!! VTAB 13! HTAB 3! PRINT 


1260 IF LEFT* (PLi(P),5) < > " 






SPC( 10)!! VTAB 15! HTAB 1! 


APPLE" ThEN 1290 


2220 


VTAB 13! HTAB 3! PRINT "TO! 


PRINT spc( id; 


1270 IF APPLE > THEN 1220 




II. 

> 


2150 fEXT S 


1280 APPLE = P 


2230 


VTAB 13! HTAB 9! GET X»!X2 = 


2160 FOR Z = 1 TO 2500! NEXT Z! NEXT 


1290 F LEN <PL*(P)) > 8 THEN P 




ASC (X») - 65 


P 


Li(P) = LEFT* (PL*(P),8) 


2210 


IF X2 = - 57 THEN 2180 


2170 RETURN 


1300 ff P < 6 THEN P = P + i: GOTO 


2250 


P X2 < OR X2 > 9 THEN 22 
30 

VTAB 13! HTAB 9! PRINT X*! 
VTAB 13! HTAB 11! GET Y»!Y2 




1220 
1310 NP = P! HWt ! RERRN 


2260 
2270 


Subroutine for setting yjp Apple's 
ships. 






= ASC (Y*) - 18 




2280 


IF Y2 = - 10 THEN 2230 




SLibroiitine to set up ships on 


2290 


P Y2 < OR Y2 > 9 THEN 22 
70 
VTAB 13! HTAB 11! PRINT Y$; 


2500 TOME ! VTAB 15! PRINT " APP 


grids. 


2300 


LEISNOHSEIIINGIFHSSHI 
PS. . ." 


2000 FOR P = 1 TO NP: f«MC 
2010 IF APPLE = P THEN GaSIB 25 
00 : GOTO 2160 


2310 
2320 


VTAB 15! HTAB 1! PRINT "COR 
RECT? (Y/N)"i! GET Z«! P Z$ 
= "N" T»€N 2110 
P Z« < > "Y" THEN 2310 


2510 FOR S = 1 TO 5 

2520 X = INT ( RND (1) x lfl)!Y = 

INT ( RND (1) X 10) 
2530 XI = INT ( RW) (1) x 3) - 1 


2020 PRINT " DES- 






:YI = INT ( RND (1) X 3) - 


BATTLE- AIR. TROYER 






1! P XI = AND n = THEN 


CRUISER SIB SHP CAR 






711(1 


RIER" 


Check validity of input. 


L\JOV 






2510 FOR I = 1 TO SIZ(S)!XX = X + 


2030 VTAB V, INVERSE ! HT« 3! PRINT 






I X n.'YY = Y + I X Yl 


"DO";; HTAB 12! PRINT "CCC"! 


2330 XD = X2 - XIIYD = Y2 - Y1!X = 


2550 P XX < OR XX > 9 OR YY < 


! HTAB20! PRINT "SSS"}! HTAB 




ABS (XD)!Y = ABS (YD)! P 


OR YY > 9 THEN 2520 


26! PRINT "RRBB"!! HTAB 35! PRINT 




X = AM) Y = Sn(S) - 1 THEN 


2560 P GZ(XX,YY,P) > THEN 252 


"AAAAA"!! NOWIAL 




2380 


» 



80 
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2570 NEXT I 


l#iich grid does player want to fire 


1300 GOTO 1090 


2580 FORI = lTOSn(S):GZ(X + 


upori? 




n I I,Y + n I h?) = SI NEXT 






I 




Has the paddle button been pressed? 


2590 NEXT S 


1050 VTAB 23: HTAB i: PRINT SPC( 




2600 FOR Z = 1 TO lOOOJ fOT Z 


79);: VT/8 22: HTAB 1 




2610 RETURN 


1060 F NP > 2 THEN PRINT "PRES 


1310 F PEEK ( - 16287 + NX 1 




S SPACE BAR TO SELECT GRD." 


28 THEN HO = h:vo = v:m = H 


Subroutine to position and draw the 




- H(G):ov = w - v(G): goto 


proper nuHber of grids. 


1070 PRINT : PRINT "PRESS PADDLE 


1150 




BUnON TO FIRE,"} 


1320 IF PEEK ( - 16287 + N) > 1 


3000 FOR I = 1 TO llVd) = V,WI 


1080 G = 1 


27Tt€N1320 


)= 2: NEXT I 


1090 FG = PTI€NG = G + i:iF 


1330 S = GZ(HH,W,G): F S < THEN 

PRINT "";: GOTO 1150 
1310 NORMAL : UTAB 22: HTAB i: PRINT 

SPC( 119); 
1350 RETURN 


3010 IF NP < 1 THEN V(l) = 6JV(2 
) = 6'M2) = 6: GOTO 3010 


ONPTFCNG = 1 
1100 F DEAD = THEN 1110 


3020 V(1) = 12! F Iff = 4 THEN V( 


1110 FOR I = TO DEAD - i: F G 


3) = 12{ GOTO 3010 


< > KJTd) THEN NEXT i: GOTO 


3030 V(5) = 12!V(6) = 12 


1110 




3010 FNP = 20RW' = 1THENH( 


1120 g = g + i:fg>nptheng = 


Subroutine to execute Apple's nove. 


2) = 30:H(1) = 30: goto 3080 


1 
1130 GOTO 1090 


Choose a grid. 


3050 IF NP = 3 THEN H(2) = li:H( 






3) = 3D: GOTO 3080 




5000 VTAB 22: HTAB i: PRINT "APP 


3060 H(2) = 16:H(3) = 30J IF NP = 


Position cursor on chosen grid 


LE'S TURN" 


5 THEN H(5) = 305 GOTO 3080 


using paddle input. 


5010 Fiff = 2THENG = 3-APPL 


3070 H(5) = 16JH(6) = 30 




E: goto 5070 


3080 FOR P = 1 TO NF- 




5020 LEAST = 17 


3090 H = H(P):V = V(P)! GOSUB ISO 


1110 HO = h(G) + 5:vo = y(G) + s: 


5030 FOR I = 1 TO NP: F I = (AP 





OH = 5:ov = 5 


PLE) THEN 5060 


3100 NEXT P; RETURN 


1150 PN = POL (N) / 2: F PN > 9 


5010 HHS = O: FOR J = 1 TO 5:Hn 




9 THEN PN = 99 


S = HnS + HITS(J»I): ItXT J 




1160 W= INT (PN/ 10):HH = PN - 




SubroLitine to dr3« 3 single grid. 


w t io:y = w + v(G):h = m 


5050 F HilB < LEAST Tl€N LEAST = 




+ H(G) 


Hns:G = I 




1170 FH = H0W«)V = V0THEN1 


5060 NEXT I 


3500 DWtkSt : FOR I = TO 9 


210 




3510 VTAB V + I! HTAB H! PRINT A 


1180 INVERSE : yiAB W, HTAB HO: 




t; 


S = GZ(OH,OV,G): IF S > - 1 


Are there any ships that are hit 


3520 NEXT I 


THEN PRINT "*"',', GOTO 1210 


but not sunk? 


3530 NORMAL : FOR J = 1 TO LEN 






(PL»(P)) 


1190 F S > - 6 THEN NORMAL 




3510 VTAB V + J: HTAB H - 1 


1200 PRINT Si( ABS (S))} 


5070 CHUilt = O: FOR I = 1 TO 5 


3550 PRINT Wm (PLi(P),J,l); 


1210 FLASH : UTAB V: HTAB H:S = 


5080 F HnS(I,G) > AM) HHSd 


3560 NEXT J 


GX(HH,W,G): IF S > - 1 THEN 


,G) < Snd) AND HnSd,G) > 


3570 RETURN 


PRINT "+":: GOTO 1230 


CHOICE THEN CHOICE = i:HnS = 




1220 PRINT S$( ABS (S))} 


HnS(I,G) 




1230 R = RND (1) I 100 + lOO: 8 


5090 NEXT I 


Subroutine to irvut a player's 


TR,8 




Hove» 

Wiieh paddle is player using? 


Has the space bar been pressed? 


5100 IF CHOICE = THEN 5270 


1000 VTAB 23: HTAB i: PRINT PL»( 


1210 KEY = PEEK ( - 16381): F K 




P);", Pf^SS YOUR PWXJLE Bun 


EY < 128 TICN 1310 


Calculate attack on wounded ship. 


ON": PRINT "WHEN YOU'RE [€AD 


1250 POKE - 16368,0: F KEY < > 




V »< 
1 t t 


160 THEN 1310 




1010 IF PEEK ( - 16287) > 127 THEN 


1260 VTAB v: mm h: fwekse :s = 


5110 J = i: FOR Y = TO 91 FOR X 


N = O: GOTO 1010 


GZ(HH,W,G): IF S > - 1 Tiei 


= TO 9: IF GZ(X,Y,G) = - 


1020 F PEEK ( - 16286) > 127 T>CN 


PRINT "+";: GOTO 1290 


CHOICE TICN X(J) = X;Y(J) = 


N = i: GOTO 1010 


1270 F S > - 6 THEN NORMAL 


y:j = J + 1 


1030 GOTO 1010 


1280 PRINT S$( ABS (S)); 


5120 >EXT X,Y; IF HHS < > 1 THEN 


1010 IF PEEK ( - 16287 + N) > 1 


1290 G = G + i: IF G>NPTICNG = 


5190 


27 THEN 1010 


1 


continued on next page 
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continued from previous page 


5330 F(K I = 1 TO W» (1) « 8 + 


6110 GZ(m,W,G) = - s 


5130 IttX = O; FOR YI = - 1 TO 15 


1 


6150 VTAB V: HTAB H: PRINT Si(S) 


FOR XI = - 1 TO l!I = i: F 


5335 H = m d) X lOty = RND ( 


• 


XI = MO n = THEN 5170 


1) I 10 


6160 HnS(S,G) = HnS(S,G) + 1 


5110 XX = X(l) + I t XUYY = Yd) 


5310 F GZ(H,V,G) < THEN 5335 


6170 F HnS(S,G) ' Sn(S) THEN 


+ iin:iFxx<flORxx> 


5350 HTAB H + H(G)! VTAB V + V(G 


VTAB 23: HTAB i: PRINT ;SS$ 


90RYY<00RYY>9TJCN5 


): FLASH : PRINT "+"; 


(S)!" SUNK!!!";: GOSUB 7600 


160 


5360 R = ma)* 100 * loo: i 


6180 HHS = O: FOR I = 1 TO 5:Hn 


5150 F GZ(XX,YY,G) > - 1 THEN 


TR,8 


s = Hns + Hnsa,G>: next i 


I = I + i: GOTO 5110 


5370 FC« Z = 1 TO WO (1) i 500 




5160 F I > MAX THEN MAX = i:XD = 


: NEXTZ 


6190 FOR Z = 1 TO 2000: NEXT 1', VTAB 


xi:yd = Yl 


5380 HTABH + H(G): VTAB V + V(G 


22: HTAB i: PRINT SPC( 119) 


5170 NEXT XI,YI 


): iNVtkst : print "+'■; 


• 
» 


5180 X = X(l) + XDJY = Yd) + YD5 


5390 NEXT I 


6200 F HHS < 17 THEN 6250 


GOTO 5330 


5100 m = X:W = Y!H = HH + H(G)! 


6210 FLASH : VTAB 22: HT/fi i: PRINT 


5190 F teS (X(HnS) - Xd)) = 


V = W + V(G)!S = G5:(HH,W,G 


PL$(G);"'S FLEET IS DESTROYE 


HnS - 1 OR m (Y(HilS) - 


) 


D!": NORMAL 


Yd)) = HITS - 1 THEN 5230 


5110 HTAB HJ VTAB V. FLASH I PRINT 


6220 RORIIB 7500: FOR Z = 1 TO 10 


5200 FOR I = 2 TO HITSJAX = ABS 


■'+"} 


OO: NEXTZ 


(X(l) - X(I - 1))!AY = PBS 


5120 R = RND (1) X 100 + 1005 & 


6230 VTAB 22: mm i: print SPC( 


(Yd) - Yd - 1))J F AX = 1 


TR,8 


39); 


OR AY = 1 THEN NEXT I 


5130 FOR Z = 1 TO RND (1) i 100 


6210 OUT(DEAD) = G:DEAD = DEAD + 


5210 X= INT ((Xd) + Xd- D) / 


+ 500*. NEXT Z 


i;FDEAD = ltf>-lTHEN POP 


2 + .5):Y = INT ((Yd) + Y( 


5110 HO = OJVO = 


: GOTO 310 


I - D) / 2 + .5) 


5150 NOR^ttL : RETURN 


6250 RETURN 


5220 GOTO 5330 






5230 X = X(1) - (X(HnS) -Xd)) / 


Subroutine to evaluate the results 


Apple's cofwents. 


(HnS - 1)5Y = Yd) - (Y(Hn 


of the attack. 




S) -Yd)) / (HHS- 1) 






5210 F X > - 1 AND X < 10 AND 




6260 DATA "RATS, MiSStD AGAIN." 


Y> -1ANDY<10THEN F 


6000 i^isuezooo 


,"I THdlGHT I HAD YOU THAT T 


GX(X,Y,G) > - 1 THEN 5330 


6016 VTAB 225 HTAB i: HUNT SPC( 


IME!","IWASSUREISAH ABL 


5250 X = X(HnS) + (X(HnS) - Xd 


119); 


F ON RADAR. . .","JUST HAH 


)) / (HHS - 1)!Y = Y(HnS) + 


6020 F S > D THEN 6120 


TILL (CXT TD€.","T»C BATTL 


(Y(HnS) - Yd)) / (Hns - 1 




E ISN'T 0\«R YET!!" 


) 




6270 DATA "I'LL BET THAT HAS d 


5260 GOTO 5330 


Missed! 


OSE, THnilRH!","IHUPt YOU'RE 

A ma aaMMER.","THAT HAS 

JUST TO GET YOUR ATTENHON." 




6030 GOSUB 7200 


,"ONE LESS PLACE TO HIDE. . 


If no wounded ship« then choose 


6010 VTAB 22: HTAB i; IF APPLE < 


.","NEXT TIME I'M GONNA AIM. 


rsndon location> 


> P THDI 6070 


II 




6050 RESTO(£ { FOR I = 1 TO RND 


Sound subroutines: 




(1) I IB + i: READ R$: NEXT 






I 


Falling boHb. 


5270 X = INT ( Wfl) (1) « 10):Y = 


6060 PRINT RC GOTO 6080 




INT ( RNO (1) 1 10) 


6070 PRINT "SORRY, ■';PLi(P)r', Y 




5280 F G5:(X,Y,G) < T(€N 5270 


OU HISSED," 


7000 N = 5:TM = 10 


5290 N = O: FOR YI = - 1 TO i: FOR 


6080 G3:(m,W,G) = - 6 


7010 FOR I = 1 TO 255 STEP N: « 


n = - 1 TO 1! F XI = AND 


6090 VTAB V: HTAB H: INVtRSt ! PRINT 


n,TM: lOT 


n = THEN 5320 


"'.";: NORMAL 


7020 RETURN 


530O XX = X + xi:yy = y + n: f 


6100 FOR Z = 1 TO 2000: NEXT Z 




XX<0ORXX>9ORYY<0OR 


6110 VTAB 22: HTAB i; PRINT SPC( 




YY > 9 THEN 5320 


39): GOTO 6250 


Plop! 


5310 F (^(XX,YY,G) > - 1 THEN 

N = N + 1 
5320 NEH n,Yi: F N < 1 THEN 5 






A hit! 


7200 PI = 200 + RND (1) i 56:P2 = 


270 




80 + RND (1) I 5I:T1 = 10 + 
RM) (1) I 6:T2 = 18 + RND 




6120 GUaJB7100 


(1) «6 




6130 VTAB 22: HTAB i: PRINT "A H 


7210 FOR Z = 1 TO 500: NEXT Z 




IT ON "5PL*(G);"'S ";SS$(S)} 


7220 8 Pl,Ti: a F2,T2 


Position the cursor and firei 


II |ll 


7230 RETURN 
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Explosiont 


7620 FOR I = 1 TO 305 8 T150,B5 NEXT 

I 
7630 FOR I = 1 TO 205 8 TZ55,35 NEXT 




7100 POKE - 16302,0 


I 


7110 Rl = ZOO + RM) (1) I 55!RZ = 


7610 F(« I = 1 TO 3005 NEXT I 


3 + RND a) « 3!R3 = 18 + RND 


7650 NEH J 


(1) I 7:R1 = 3 + RID (1) X 
3 
7120 FOR J = 1 TO 1 + RND (1) I 


7660 RETUW) 




3*. FOR I = 1 TO 8 + raO (1) 


Poke in the nschine lcHi<ju39e 


I 3: Pa<E - 16301,0 


sound-generation routine. 


7130 8 TRl / I,R2: S TR3 t I,R1 




7110 POKE - 16303,05 NEXT J NEXT 


7700 POKS = "201,081,208,015,032, 




177,000,032,218,230,138,072, 


7150 RETURN 


032,183,000,201,011,210,003, 




076,201,222,032,177,000,032, 


Musical thaw. 


218,230,101,131,003,131,001, 


7500 S T192,200: i T153,lflOt 8 T 
128,1005 S Till, 1505 8 T153, 
505 8 T111,2005 8 T96,2005 8 
T86,1005 8 T128,1005 8 T96,2 


133,000" 

7710 FOR I = 1 TO 355 POKE I + 7 
67, m. ( MID$ (POK»,I I 1 - 
3,1 I 1 - 1))5 i€XT I 

7720 P(»($ = "170,160,001,132,002, 


50 

TCI ft ivmrui 


173,018,192,136,208,001,198, 


7510 RETURN 


001,210,007,202,208,216,166, 




000,208,239,165,003,133,001, 




198,002,208,211,096" 


Klaxon, 


7730 FM? I = 1 TO 335 POKE I + 8 




02, VAL ( MID* {POK$,I i 1 - 


7600 FOR J = 1 TO 3 


3,I« 1 - 1))5 NEXT I 
7710 POKE 1013,765 POKE 1011,05 POKE 


7610 FOR I = 1 TO 305 & T255,35 VEf^ 


1015,3 
7750 RETll»l ^ 


n 




APPLE ONE LINERS 

10 HGR 5 FOR X = 1 TO 100005 fCOLOR= 

6 x RND (1) + 15D = INT ( RND 

(1) t 278) + 15E = INT ( RND 

(1) x 158) + 15 HPLOT D,E TO 

D + 1,E TO D + 1,E - 1 TO D, 

E - 15 NEXT X 

Matthew Levie 
New York, NY 

10 HH? 5 FOR X = 1 TO 100005 ^COLQR= 
6 X RND (1) + 15 HFIOT 100, 
1005 CALL - 30825 NEXT 

Mathew Levie 
New York, NY 

1 HOt€ 5 HGR 5 FOR L = 1 TO 25X = 
RND ( PEEK (78) + PEEK (79 

) X 256) 5X = RND ( - X)5A = 
INT (209 X RND (D) + 355B 
= 1595D = 355 HCOLOR= INT 

(H / 10)5 FOR P = B TO D STEP 
- 15 hfLOT A,B TO A,P5 NEXT 

P5 FOR T = 1 TO H5G = INT ( 

70 X RND (1))5H = INT (70 x 
W© (1))5G = G - 35 + A5 HPLOT 

A,D TO G,H5L = 15 NEXT T,L 

Mai Holman 
Lexington, MA 
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PADDLE 
SOUND EFFECTS 

by James D. Dwyer 
Dandelion Micro Products 



If you are into computer- 
generated sounds, this is one 
program you will want to add to 
your collection. It requires an 
Apple II with a "revision 1" 
board, or an Apple II Plus. You 
do NOT have a revision 1 board if 
your Apple can only muster four 
colors (including black and white) 
in Hi-Res graphics, if you must 
press "reset" each time you power 
up, and if your letters are always 
tinged with color even in TEXT 
mode. 

This routine uses two speakers, 
one of which must be connected 
via the cassette port as follows: 

1 . Connect the cable from the 
"cassette out" port on the Apple 
to the microphone jack on your 
cassette recorder, in the normal 
manner. Do not connect the other 
part of the cable to the cassette 
monitor jack. 

2. Connect an 8 -ohm speaker 
to the cassette monitor jack. 

3. To put the speaker into 
operation, place the cassette 
recorder into "record" mode. You 
can either insert an unused 
cassette, or reach into the back left 
of the cassette compartment and 
push on the little metal "finger" 
as you press the record key. 

Both the on-board speaker and 
this added one play tones which 
are controlled by the two paddles. 
Rotating one or both of them 
provides an endless variety of 
sounds — weird, exotic, bizarre, 
and even harmonious. 

Here is the Applesoft program 
which pokes in the routine that 
does it. (If you have only Integer 
BASIC, you'll need to skip the 
READ and DATA statements, and 
use 19 separate POKEs: POKE 
768,173 : POKE 769,48 :, etc.) 
Just type in the program , RUN it, 
and start twisting the paddles. 

10 FOR I = 768 TO 786: READ 

D: POKE I,D: NEXT I 

20 DATA 173,48,192,162,0,32.30, 

251,173,32,192,162,1,32,30,2,51 

76,0,3 ^ 

30 CALL 768 ^ 
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REVIEWS 



Temple of Apshai 

Automated Simulations 

Ever moved into an apartment 
only to find it already occupied by 
ants, roaches and other chitinous 
vermin the size of Chryslers? They 
aren't that hard to banish (once 
you begin to understand their 
traffic patterns, anyway), but it 
usually takes a long time and can 
get pretty messy. But if you think 
evicting kitchen-loving sextopeds is 
a chore, try traipsing through 
"Temple of Apshai", 
Automated Simulations' Fantasy 
Role Playing (FRP) game-derived 
computer adventure. NOW we're 
talking big bugs: giant ants, giant 
mosquitoes, giant termites, even 
the dread giant bombardier beetles. 
Certainly not things you'd like to 
find hiding behind the stove. 

To play "Temple of Apshai", 
you need a character. You can 
make one up, investing him or her 
with superhuman capabilities in the 
characteristics of intelligence, 
strength, intuition, ego, 
constitution and dexterity, and 
equipping your character with 
magic armor, weapons, and 
enough healing potions to open up 
a hospital. Some people would call 
this taking the path of least 
resistance, but the old sticks in the 
mud who review games might be 
moved to call it cheating. But 
whatever you call it, it does tend 
to cut down enjoying the game 
because it makes everything too 
easy. If you aren't so into instant 
ego gratification, you can ask the 
Innkeeper who you meet at the 
beginning of the game to select a 
character for you by randomly 
generating characteristics and 
determining the number of silver 
pieces you have. He will also sell 
you the equipment you need. (Be 
warned that he loves to dicker, and 
will try to take advantage of those 
with a low intelligence; he once 
asked a slow-witted fellow I know 
named Dumbeaux for 13,000 silver 
pieces for a dagger.) 

After you are equipped and 
named, it is off to the awful 
temple of the insect god to fight 
monsters, find treasure (although 
some of the treasure you find is 
trash), and in all hkelihood 



provide some antman with a late- 
night nosch. 

There are limitations to the 
game, but none of them are really 
fatal. The pace can get pretty slow, 
since as you progress down the 
halls and from room to room, the 
computer pauses to draw what you 
see, and it sometimes takes its own 
sweet time doing it. And while 
there are a fair number of non- 
insects around to battle, all those 
damn bugs can get a bit tedious. It 
is difficult to feel very threatened 
by a giant termite. What's he 
gonna do, eat your clogs? It is also 
a httle disconcerting to have 
monsters suddenly materiahze out 
of nowhere or to swing your sword 
through thin air and hear 
something go "crunch". The scope 
of the game is also limited in that 
the player can assume no role 
other than fighter. 

Nevertheless, "Temple of 
Apshai" is enjoyable and comes 
closer than most computer games 
to the flavor of FRP games. It 
doesn't wear thin quickly like some 
games, if for no other reason than 
that it takes rather a long time to 
explore all four levels of the 
temple, and if you get tired of one 
character, the Innkeeper is more 
than happy to generate another 
one for you. All in all, it is a 
reasonably good investment. 

Michael Humes 

Apple Machine Language 

by Don Inman and Kurt Inman 
Reston Publishing Co. 

If you've pretty well mastered 
Apple BASIC and need more 
challenge, or have become 
frustrated with some of BASIC'S 
limitations, then the next logical 
step is to learn Machine Language. 
Not necessarily to write all your 
programs henceforth on that level, 
but at least to start peppering your 
programs with Machine Language 
subroutines. 

If you've seen cryptic listings 
such as 

0300-A2 05 LDX #$05 

0302-A9 22 LDA #$22 
and have a mortal fear of 
departing the more or less refined, 
English world of BASIC to enter a 
primitive foreign region, take 
heart! Apple Machine Language, 



by Don and Kurt Inman, takes a 
lot of the fear out of foraging into 
the realm of hexadecimal 
addresses, mnemonic codes, and 
monitor subroutines. 

The authors take a step-by-step 
approach to learning Machine 
Language, assuming nothing more 
than reasonable competence in 
BASIC. The pace seems about 
right, neither painfully slow nor 
breathtakingly fast. The book is 
intended to be used hand-in-hand 
with your Apple, so that you learn 
not just by reading but by 
continually applying what you 
read. If you just read through the 
pages, you might have the 
impression what the authors are 
repeating themselves, but that 
repetition should be an asset in the 
learning-by-doing process. 

One minor stylistic gripe about 
the book is its periodic use of the 
word "data" as a singular noun 
(e.g., "the data has been placed in 
the memory location...", p. 29). I 
know I'm fighting a losing battle, 
but in my book "data" is still the 
plural of "datum". Also, there's a 
minor error in the memory map on 
page 26: "64K installed" should 
read "48K installed." These are 
indeed LITTLE things, and 
shouldn't detract from the overall 
very good quality of the book's 
written style and visual 
appearance. 

Jon Voskuil 
Dragonquest 

Programmer's Guild 

CalHng all worthy heroes, calling 
all valiant warrior types! There's a 
dragon trying to create an 
international incident. Having been 
turned away at the embassy gates, 
scaly old Smaegor has snatched the 
King's daughter and made off for 
parts unknown. If you ask the 
King, he'll tell you that the 
aforementioned reptilian raptor 
has set a deadline of nightfall 
before he subjects the lovely 
princess to a trial by mastication. 
Here's a chance for fame and 
fortune, not to mention a nifty bit 
of adventuring. 

"Dragonquest" is a Machine 
Language adventure written by 
Charles Forsythe and put out by 
the Programmer's Guild. It opens 
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with a cute little routine right out 
of obedience training that's nearly 
worth the price of admission by 
itself. From then on, all the de 
rigeur adventure stuff pops out at 
you from every direction: There's 
the water travel segment, the find 
a weapon routine, the Dr. 
Doolittle let's talk to the animals 
bit, and much, much more. 




There are also some design 
factors in "Dragonquest" that are 
of interest. For one, you can pick 
up or drop a whole bunch of stuff 
at one blow, rather than singly, 
item by item. And there's the use 
of the shift key for entering the 
direction you wish to go: SHIFT E 
would help you move east, etc. 
Asking for help also produces 
some interesting results, but if I 
told you what they were then 
you'd miss out on the fun of 
finding out for yourself. 

The adventure itself follows a 
fairly predictable logic. There are 
no glaring incongruities in it, nor 
is there any required esoteric 
knowledge. You are not out for 
treasure per se, but rather you 
have a specific task to accomplish 
within a limited amount of time. If 
one were to seek out the weak 
points of "Dragonquest", one 
would have to look at the lack of 
red herrings, the lack of blind 
alleys and dead ends. 
"Dragonquest" is very trim, there 
are not many twists and turns in it. 
But for many, this would hardly 
be considered a drawback, but 
rather an advantage. This reviewer 
prefers obscurity, but then this 
reviewer's sanity has been 
questioned not infrequently. 

In the end there's only one way 
to find out.. Pick up a copy and 
try to rescue the princess. She 
needs your help. ^ 

Dave Albert ^^ 
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INVENTORY'S 



by Roger W. Robitaille, Sr. for... 




RE 



Inventory 'S' is an exciting advance in snnall business 
software for the TRS-SO™. Its in-memory system of data 
storage solves the problems of both sequential and random 
access files, while providing extremely fast, random access to 
any record. Other advantages include the ability to use any 
combination of characters for stock number; an exceptionally 
flexible record format (field names are user definable); and 
the ability to store data to tape or disk and upgrade at any 
time. Up to 150 items can be stored per 16K of available 
memory, with stock number, description, cost, vendor, 
reorder, and profit data in each record. Use your present 
stock numbers (a sort function is included), unlike competing 
systems which force you to use a different "record number," 
User-definable screen and printer reports let you see just the 
data you need, when you need it. 

Inventory *S' can be used effectively with a 16K, tape based 
system or a 48K, disk and printer system. 

TAPE VERSION, 16K (min.), LEVEL II $24.95 
32K DISK VERSION $39.95 

WITH INVOICING ON DISK $59.95 

TSedHPITOSilX 

6 Soulh Si .Millord. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 
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MUSE susERTExrn... 



Language of Super-Text II software — 6502 Assembly . . . gives extremely fast editing response. 

Program Disk Protection —A backup copy of the program disk is provided. 

Text Creation and Editing Features — Super-Text II includes a character-oriented, floating cursor edit with Add, 

Change, Math, Print and Preview modes. Among the standard features retained from the original Super-Text are: 



single key cursor control 

automatic w/ord overflow 

character, word, and line Insertion 

forward and backward scrolling 

automatic on-screen tabbing 

automatic paragraph indentation 

character, word, and line deletion 

ditto key 

single key for entering "the" 

block copy, save and delete 

advanced file-handling 

global (multi-file) search and replace 

column decimal alignment 

left and right justification of columns 

automatic user-positioned page 
numbering 

chapter relative page numbering 

complete printer tab controls in text 

files 
line centering 



• superscripting and subscripting 

• on-screen lower case with MUSE Data 

Shift Lower Case Adapter (Paymar 
also supported) 

• shift key modification compatible 

• Split-Screen allows the user to view and 

edit two portions of a file 
simultaneously. 

• Math Mode provides a built-in 15 digit 

floating point calculator which per- 
forms on-screen calculations, column 
totals and verified numeric data in 
statistical documents. 



Trade in your old word processor for Super 
Text II and receive the following credits: 
Documentation and proof of purchase must 
be included with return. 

Super Text — $100 credit 
Apple Writer — $50 credit 
P.I.E. — $50 credit 
Easy Writer — $50 credit 



Length and Linkage of Files — Maximum file size equals 20,049 characters. Automatic file linkage (Autolink) 
provides unlimited file size when doing find, find and replace, and preview or printing operations. 

Page Preview Provided — Yes. Preview mode allows viewing a file exactly as it would print for Inspection of 
page breaks and text formatting. The preview mode carries through AuioLInk operations allowing Inspection of 
extremely large documents. 

Text Capacity of Screen — 23 lines by 40 characters. 

Storage of Text on Disk — Manually at any time, automatically during AutoLlnk. 

File Backup — Dual disk copy program Is Included on the program disk. Files may also be loaded and saved on a 
blank disk individually. 

Automatic Pagination and Page Numbering Features — Page breaks are automatic based upon number of lines 
per page and may be forced at any point using a control character In the text file. Page numbering is automatic 
but may be suppressed. Location of the page number Is user selectable. Chapter relative page numbering is also 
provided. 

Printers Supported — Any printer which will Interface with an AppL; computer. 

Right Justification Technique — Provided by variable between word spacing. 

Special Printing Features Available — Features Include: underline, boldface, superscript, subscript. Other 
special printer features, including multiple character fonts, may be defined by the user. 

On-screen Display of Special Printer Function — Inverse characters are displayed on the screen to indicate 
special features. These control characters are not displayed In preview mode. 

Control Characters — All printer control characters are Inverse so there is no conflict with printable characters. 
However, a user may define any printer control sequence. 

Apple II and Apple II + 48K Disk $150.00 



TseiHPiJ^iix 

6 South Sl.MjIford. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-S00-2M-1790 
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and other undesirables 



In the S-80 Disk version of "Convoy" published in the January, 1981, issue of 
SoftSide, Line 5020 should be changed to: 

5020 0PEN"0M,LC»!PRIKT«l,A;PRIIfr«,Ai:PRINT»l,K,R(l),R(2),R(3) 
.RCJ) ,R(5) ,R(6) ,R(7) ,R(8) ,S,YE,N,TS:aOSE:GOTO 3110 



In the S-80 version of "Tanks A-Lot" published in the February, 1981, issue of 
SoftSide, the left commander's control keys should be: 

FORWARD — S 
FIRE — D 

ROTATE RIGHT — A 
ROTATE LEFT — 



In the Atari program "Changing Hearts" published in the Feburary, 1981, issue of 
SoftSide, there should be a "control comma" added to the end of the character string 
in Line 40. 




DataiBase continues... There is a problem with the delete routine in SoftSide's Data 
Base that has been brought to our attention (boy has it!). For example, if you try to 
delete the first three records, the first will be deleted fine, and the remaining data will 
be moved to fill up the resulting space. But when record two is deleted, the program is 
really deleting what started as record three, and record two has now become record 
one! Below are corrections to this problem for all three systems. After this correction 
is made, the above example would delete record one first, but after a record is deleted 
the record number pointer is not moved forward, so no records are skipped. 



ATARI 

200 TRAP ZOOtCLOSE *3:RL=(m+l)xIL:PRI 
NT CHR$(125);"(S) SAUE CIWOT DATA" 

Alio Ni=Ni-i:ss=o:i=i-i 

8250 1=11-1 

8232 FOR 19=11 TO I2:i=I+l 
8375 F RS=1 THEN 19=12 
8380 fOT 19 



APPLE and S-80 

Alio Ni = NT - i:ss = o:i = I - 1 

8250 I = II - 1 

3252 FOF' 19 = II TO IZtl = 1 + 1 
3375 IF ftS = 1 THIN I? = 12 
8380 NEXT 19 



The Apple translation of "Strategy Strike" published in the March, 1981, SoftSide 
has one mistake which needs correction in two places. Lines 730 and 5060 are 
supposed to check for a miner, but erroneously use the number 5 rather than the 
number 8. The lines should be as follows: 




730 F AZ = BOMB AND Al 
770 



8 THEN 



5060 IF (Al = SPY AND A2 = 1) OR 
(A2 = BONB AM) Al = 8) THEN 
H(f ) = i: HITO 5110 



© 
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HARDWARE CORNER 




by Edward E. Umlor 

This month we are going to talk 
about some of the disk drives and 
cables that are available for your 
S-80. There have been a lot of 
people jumping on the disk 
bandwagon. I intend to cover 
several disk drives and their 
compatibility, and also the 
suppliers of these drives. First we 
need some definitions. 

Drive 0: That drive which comes 
on when power is applied or the 
reset button is pushed. This is the 
drive your Disk Operating System 
(DOS) must be in to go into disk 
operation. 

Flippy Drive: This drive has two 
sets of write protect and beginning 
of track sensors. This allows you 
to take the disk out, turn it over, 
reinsert it into the drive, and use it 
like a brand new blank disk. 

Tracks: The number of steps the 
read/record head can move. Also, 
the number of concentric circles of 
data that can be put on the disk. 

Speed: The rotation speed in 
revolutions per minute (rpm) of 
the magnetic media inside the disk 
envelope. This should be 300 rpm 
for 5!4" disk drives. 

Terminator: This is a DIP (Dual 
In-line Package) circuit that 
contains resistors for matching the 
drive electronics to the cable. It is 
necessary to minimize the amount 
of interference between two 
adjacent wires carrying signals. 

Density: You can get twice as 
much information on a double 
density disk as on single 
density. (For a more complete 
discussion of density, see "What's 
New" in the February 1981 
SoftSide). 

There are a few manufacturers 
of the drive mechanisms 
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themselves and many brand names 
of drives. These few manufacturers 
supply drives and the brand name 
advertiser builds a cabinet and 
power supply. These may take 
several forms: One will do all the 
programming of the drive 
(0,1, 2... etc.) on a connector 
extender card, another will connect 
directly to the drive circuit board, 
and some will allow multiple drives 
in one overall cabinet. 



DRIVE 

One of the very first things you 
are confronted with is which 
connector is drive 0? The Tandy 
way is the connector closest to the 
expansion interface is drive 0, and 
Hardside's cable places drive on 
the connector farthest from the 
expansion interface. You should 
receive directions with the cable or 
the drives on the matter, but if you 
don't, you need not panic. Hook 
up the system and place a drive on 
the first connector (closest to the 
expansion interface). If the red 
light does not come on and the 
motor doesn't run, then move the 
drive to the last connector and try 
again. You will not hurt your 
drive. BE SURE TO REMOVE 
THE DISK FROM THE DRIVE 
BEFORE TURNING OFF THE 
POWER! If you don't follow this 
cardinal rule, your diskette can 
receive a TANDY ZAP. This is the 
common name for spurious data 
being placed on the disk (usually 
the directory track or track 0) as 
various signals are generated 
during the power down. 

SETTING UP DRIVES 

The next thing you are going to 
be faced with is setting up your 
drives for the specific position they 
are to occupy in your system. You 
should receive directions on how to 
do this with the drives. The 
terminator should remain in the 
drive that is positioned farthest 
from the interface, and be 
removed from all the other drives 
in the system. Too many 
terminators on line can load the 
output stages of the drives and the 
interface and cause damage to 
these circuits. You might also have 
to change a jumper's position or 
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change the setting of a dip switch 
to tell the drive it is not drive 0. 
All the information you will need 
should come with the drives. Now 
let's look at some of the names 
available. 

KINDS OF DRIVES 

HARDSIDE 40-Track: This is 
actually a TEAC drive mechanism. 
The cable attaches directly to the 
drive circuit board and requires the 
removal of the cover. The newer 
drives require a dip switch (DS3 
position) to be changed from ON to 
OFF for drive positions 1, 2, and 3. 
It is completely compatible with 
the Model I S-80. We have not had 
any problems in mixing the TEAC 
with drives from other 
manufacturers. I have been using 
these drives with the Doubler for 
several months with very soUd 
double density operation. The 
formatted storage capacity is 102K 
bytes single density and 180K bytes 
double density. 




HARDSIDE 40-TRACK DRIVE (left) 
PERCOM TFD-40 DRIVE (right) 

HARDSIDE 80-Track: This is 
also a TEAC drive mechanism and 
does all the 40-track will do. We 
have checked out the double 
density operation and found it just 
as solid as the 40-track. The main 
difference is the formatted storage 
is 204K bytes single density and 
360K bytes double density. Three 
of these and you have one 
MEGABYTE on-line storage in 
double density. 
PERCOM TFD-40: This is a 
40-track drive using the MPI drive 
mechanism. It is also rated for 
double density operation with the 
same storage capacity as the 
HARDSIDE 40. The cable is 
internal to the cabinet (connects to 
the drive circuit board). You don't 
have to change anything to set up 
for a different drive position. 

PERCOM TFD-100: This is the 
first flippy drive we have talked 



about and is a SIEMENS drive 
mechanism. The tracit count is 40 
tracks and sets up similar to the 
TFD-40. The biggest advantage of 
a flippy is the use of both sides of 
the disk. Each box of ten diskettes 
you buy is Hke buying 20 diskettes. 
If you do a lot of work with large 
amounts of data being stored, you 
can save money in the long run. 
The initial cost of this drive is 
$20.00 more than the TFD-40, but 
this can be saved on your first box 
of diskettes. All PERCOM drives 
are double density rated (after all 
it is their Doubler). 

CCI-100(T/M): These drives are 
40-track TEAC (T) or 40- track 
MP I (M). The difference here is 
the cables connect to an extender 
and there isn't a need to change 
any switches to set up position. 
You just plug them in and go after 
you remove the extra terminators. 

There are many other brand 
names and it would take a book to 
cover them all. The hookup, set- 
up, and operation of all of them are 
similar. You will have to choose 
your DOS (Disk Operating System) 
carefully for the drives you are 
using. TRSDOS, DOUBLEDOS, 
and NEWDOS -t- do not allow the 
mixing of 35-track, 40-track, 
77-track, or 80-track drives (either 
5!4 or 8 inch) on the same system. 
NEWDOS/ 80 will allow the mixing 
of drives (it has a special command 
PDRIVE that allows you to specify 
diskette size and number of tracks 
for each position in the system. 

TRACK COUNT 

One of the interesting things I 
have found out in playing with my 
drives is that the track count can 
be extended by one or two tracks. 
I used NEWDOS/ 80 zapped to 
double density (see "What's 
New", February 1981 SoftSide) 
and experimented with formatting. 
The PERCOM drives give 41 
tracks solid and the TEAC drives 
give 42 tracks sohd. Since I am 
using the TEACs, that gives me 40 
full tracks of data with 18 sectors 
per track. Those two extra tracks 
(36 sectors) are enough to hold this 
entire article with a httle room to 
spare. One track or even two 
tracks don't sound like much, but 
you can see by the length of this 
article, it does add up. 

Well, that's all for this trip 
around the keyboard. I am looking 
forward to receiving some 
questions in the mail bag. HAPPY 
COMPUTING FROM OLD rPL 
GRANITE KNOGGIN. zJ 




Wargamer's delight 



Three from Potkin 



1). Krlegsplel II 



A much improved two-player version 
of the original. Krlegsplel II is a war- 
gamer's delight. Choose the number of 
mountains (up to 200) and pick a scenario 
from the 9,999 possible, and then watch 
the computer set up the pieces, towns, 
mountains and a river. To win, you must 
enter the capital city of your opponent or 
reduce his fighting strength to below 
half of your own 

S-80 Level II, 16K cassette $14.95 





2). Up Periscope 

The author of the popular Krlegsplel II 
has done it again. This time the action 
takes place at sea with one player con- 
trolling the submarines while the other 
attempts to sail around RADSHA Island, 
with at least three of his fleet surviving 
the attempt. This realistic wargame in- 
cludes sonar, depth charges, and 
torpedos. 

S-BO Level II, 16K cassette $14.95 



3). Warpath 



The Indians are on the warpath! The 
Chief, along with 24 braves, is out to 
take the garrison at the fort, or at least 
to stop reinforcements from entering the 
stockade. The General, with his 14 
troopers, is trying to relieve the garrison 
before the flag is captured. The player 
determines the scenario through place- 
ment of boulders that provide both 
shelter and obstacles. Favorite 
scenarios may be replayed. 

S-80 Level II, 16K cassette $14J 
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$259 
POCKET COMPUTER WITH INTERFACE 



COMPUTERS 

TRS-80 Model II 64K RAM (#26-4002) $3499.00 

TRS-80 Model III, 16K RAM (#26-1062) $919.00 

TRS-80 Model II, 48K RAM (#26-1062+). . . .$1019.00 
TRS-80 Mod. Ill 48K RS232 2-dr. (#26-1063)$2299.00 
TRS-80 Pocket Comp. w/lnterface (#26-3501 + ) . $259 

TRS-80 Video Tex (#26-5000) $359.00 

TRS-80 Color Computer, 4K RAM (#26-3001 ) . $359.00 
TRS-80 Color Comp. 16K RAM (#26-300U) .$399.00 
TRS-80 Color Comp. Ext. BASIC (#26-3002) . . $529.00 



COLOR 
COMPUTER 
$359 / 
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MODEL I DISK DRIVES 

HARDSIDE 40-track Drive (#7-40) $319.00 

PERCOM TFD-40 Drive (#7-99) $379 00 

PERCOMTFD-100 Drive (#7-100-1) $399 00 

HARDSIDE 80-track Drive (#7-80) $449.00 

PERCOM Dual TFD-100 Drives (#7-100-2). . . . $799.00 

PERCOM Data Separator (#7-03) $29.95 

PERCOM Doubler (#7-07) $199 95 

HARDSIDE Extender Cable (#7-02) $15 95 

HARDSIDE 2-Drive Cable (#7-04) $29 00 

HARDSIDE 4-Drive Cable (#7-05) $39.00 
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MODEL I PERIPHERALS 

COMM-80 Interface (#4-80) $159.00 

CHATTERBOX Interface (#4-81) $239.00 

Disk-80 Interface, 32K RAM (#4-82) $339.00 

DISK-80-i- Interface, 32K RAM (#4-83) $369.00 

BUSY BOX Interface (#4-01 ) $89.95 

LYNX Communications Interface (#19-80) . . . $229.00 
RS Exp. Interface, 32K RAM (#26-1140-32) . . $389.00 
16K Memory Kit, TRS-keyboard (#5-1102-1) . . $49.00 
16K Memory Kit, TRS-lnterface (#5-1102) .... $49.00 

ORCHESTRA-80 (#15-03) $79.95 

Upper/Lovi/er Modification Kit (#15-02) $24.95 

CPU Speed-up Modification kit (#15-04) $45.00 

Video Reverse Modification kit (#15-05) $23.95 

2-portTRS-BUS Extender (#15-12) $29.95 

3-portTRS-BUS Extender (#15-13) $39.95 

TRS-80 Model I Dust Cover Set (#16-01) $7.95 

TRS-80 Model I Carrying Case (#7-201) $109.00 

TRS-80 Monitor Carrying Case (#17-202) $84.00 

Dual Joysticks for Color Computer (#26-3008) . $24.95 
VISTA Model II 8" Disk Drive 1 (#7-4001 ) . . . . $939.00 
VISTA Model II 8" Disk Drive, 3(#7-4002) . . $1795.00 
CTR-80A Cassette Recorder & Cable (#26-1206)$59.95 

JRS-80 Model III Dust Cover (#16-05) $7.95 

TRS-80 Color Dust Cover (#16-06) $7.95 




TERMS: Prices and specifications are subject to cliange. HARDSIDE accepts VISA & 
MASTERCARD, Certllieci checks and Money Orders; Personals cliecks accepted (takes 3 
weeks to clear), HARDSIDE pay all sliipping charges (within the 48 stales) on all PREPAID 
orders OVER $100,00, On all orders under $100 a $2,50 handling charge must be added 
COD orders accepted (orders over $250 require 25S deposit), there is a $5,00 handling 
charge. UPS Blue Label, and Air Freight available at extra cost. TRS-80 is a trademark ol 
Tandy Corp, 
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We have all the supplies 
you need for your micro. 



BASF DISKETTES 

Box of 10, 5 '/4" Sgl. Density $34.95 

Box of 10, 5 Vt " Dbl. Density $44.95 

Box of 10, 8" Dbl. Density $49.95 



DYSAN DISKETTES 

104/1 One-sided single density (one side 
certified error free at a single density of 
3979 bpr.) In track and between track 
testing is performed to ensure that the 
entire recording surface of every disk is 
100% error-free. 
Box of 5 diskettes $29.95 



3-M SCOTCH DISKETTES 

Encased in a rough jacket which resists 
handling damages. 100% certified error- 
free performance. Low modulation 
provides better signal stability. 
Box of 10 $39.95 



DIGITAL CASSETTES 

Premium quality digital recording tapes. 
These five-screw cassettes come packaged 
in boxes often. They are offered in 10 and 
20 minute lengths. 

C-10 $6.95 

C-20 $7.95 



DISKETTE HEAD CLEANING 
KIT 

3-M Scotch 7400 head cleaning kit is 
simple and easy to use. You simply 
saturate the write head cleaning fabric in 
the cleaning diskette with the cleaning 
solution, insert the diskette into the drive 
and turn it on. The rotating cleaning 
fabric alternately wipes the heads with the 
solution and the dry surface, removing 
contamination from the read and write 
head. Each kit contains two cleaning 
diskettes which will allow you a total of 
100 cleanings. 
$29.95 



DISKETTE LIBRARY CASE 

Allows you to store up to 15 mini- 
a strong molded plastic 



diskettes m 
carrier. 



.$5.00 



FLOPPY DISK SAVER 

PREVENTS: Computer drive's cleaning 

clamping hub from tearing disk's center 

hole; 

Coating removal, scuffing, dimpling; 

Data loss caused by improper rotation. 

$14.95 

Refills $7.95 



RECORDING HEAD TAPE 
ALIGNMENT KIT 

It consists of a template for locating the 
adjustment screw. An alignment tape is 
also included and a special screwdriver as 
well. The kit will allow you to align the 
heads to an industrial standard, ensuring 
consistent loading results. 
$9.95 



call us today! 
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WHAT'S NEW 



by Edward E. Umlor 

Hey! ! I haven't heard from any 
of you yet. We are still looking for 
submissions to this column. Each 
submission used will carry its own 
byline. We sure would like to 
publish your material, and that 
goes for you manufacturers. How 
about some new product releases 
or write-ups on your newest 
software. Looking forward to 
hearing from you. 

HARDWARE 

This month we are going to look 
at a unit that was mentioned in the 
February "Hardware Corner." 
That's right. We are going to 
review the MX-80 printer. This 
little guy seems to be very popular 
and with good reason I think. This 




EPSON MX-80 PRINTER 

relatively inexpensive printer does 
as much, if not more, than a lot of 
the BIG GUYS. Here are some of 
the items from the spec sheet: 

Print Method: Impact dot 
matrix printing using 9 x 9 for 
ASCII characters (yes — 
descenders for lower case), and 
6x12 for graphics (done in a two- 
pass print). 

Speed: 80 characters per second 
(normal) bidirectional. 

Paper Drive: Tractor only. 
Adjustable from four to ten 
inches. Accepts three-part paper 
(original plus two copies using 
carbon paper). There is some 
scuttlebutt about a MX-80TF 
(tractor/friction) on its way. 

Line Spacing: Software 
selectable 6 or 8, 1/6 inch or 7/72 
inch. Your choice! 

Line Length: 132, 80, 66, or 40 
characters per line, software 
selectable. 

Print Density: Four software 
selectable print densities — normal 
single strike, emphasized (head 
92 



moves 1/264 inch and strikes 
again, done on the fly), double 
strike (goes back and prints the 
same line again), and emphasized 
double strike. 

This is a nice selection of 
options from the program. If the 
question has popped into your 
head, yes, the printer does have a 
self-test feature for checking 
general operation. I have been 
using one for about a month and 
the use is heavy (doing demos, all 
my letters, etc.) To date it has 
performed without fault (except 
for the operator's from time to 
time). The emphasized mode gives 
excellent quality for doing letters 
and the emphasized double strike 
makes excellent masters for 
photocopiers. 

One of the big questions people 
have is the setup for S-80s. The 
unit comes S-80 compatible with 
the graphics offset to 160-223 
decimal. There is an internal 
switch for S-80 direct 
compatibility. This will change the 
graphics codes, but will also defeat 
some of the neat features of this 
little printer. I do not recommend 
changing the switches to only S-80 
compatible. I have too much fun 
discovering new combinations of 
size and density, etc. The printer 
also has a selectable bell (a three- 
second beep) that I put in at the 
end of long printing sequences. 
This allows me to go do other 
things until the job is done, and it 
will cry for my attention. 

The printer comes with a 
complete list of control and escape 
(ESC) codes. Some people get 
confused and put an ESC in front 
of every code. This will defeat the 
control code sequences. The 
control codes are output as straight 
CHR$(value) and the ESC codes 
can be output as 
CHR$(27);CHR$(value) or 
CHR$(27) + "letter". As an 
example to line feed and go into 
emphasized mode output: 
LPRINTCHR$(1 0) ;CHR$(27) ; 
CHR$(69); or 

LPRINTCHR$(10);CHR$(27) -l-|"E"; 

Both of the above Hues will do 
the job. In the May "Hardware 
Corner", I will try to cover some 
programming hints to make life 
faster and easier when using these 
types of codes. I have done a little 
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demo of the printer without going 
into line spacing. I hope it | gives you 
some idea of what it can do. 

SOFTWARE 

This month we are going to take 
a look at "ULTRA-MON." This 
is an intelligent utility for 
debugging your Assembly 
Language programs or seeing how 
your S-80 ROMS do things. You 
can set break points both in RAM 
and in ROM. The latter is done by 
specifying a ROM address as a 
jump to break. It allows i interpretive 
single-step execution of a program. 

This program allows for the 
quick debugging of your assembly 
programs by helping you display 
registers, interpreting instruction 
being performed, and being able to 
track relative position in the 
program when bomb-out occurs. 
Single step through that area to 
find the goof and change bytes to 
correct the problem. You can then 
rerun the program to verify 
corrected operation. 

I like the disassembly feature. It 
will give a symbolic dump with 
jumps shown as -I- or - relative 
locations. It will also give an 
ASCII character for being 
compared for program decisions. 
You can dump to the display and 
print the display on your printer. 
You can modify data in register 
pairs, blocks of memory, or 
program bytes. 

It would take a long time to be 
able to tell of all the goodies in 
this program, and even longer to 
discover all the uses of the 
subroutines. For the money it is 
one of the best Assembly 
Language manipulation programs I 
have reviewed. If you are into 
assembly programing, this program 
could sure pay for itself with time 
saved in debugging and building 
working modules. I would give it 
at least a ••• rating with** *• 
being tops. 

Well that's all for this month. If 
you have a utility program or a 
piece of hardware you would like 
reviewed, just send a sample to: 

WHAT'S NEW 

SOFTSIDE MAGAZINE 

6 SOUTH STREET 

MILFORD, NH 03055 

ATTN: E. UMLOR 

Please be sure to include the 
documentation for the item. 
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AUTO MODPROG 




by Shane Causer 

Shortly after I saw "Modprog" 
pubHshed in SoftSide (August, 
1980), I thought about how nice it 
would be if you could let the 
computer modify a statement Level 
II users wouldn't use, like a LSET 
statement, into a statement that 
could be used on the TRS-80'" 
Level II computer. 

First of all, I should explain the 
method behind program 
modification, for all of you that 
came in late. Every BASIC 
keyword (FOR, RESET, CLS, 
etc.) has a one-byte code assigned 
to it. These codes are stored in 
ROM, along with the keyword. 
The following program brings 
them out: 

10 A =128 

20FORS = 5712TO6180 

30 IF PEEK(S)>128THEN 

PRINT: PRINT 

A;" ";CHR$(PEEK(S) 

-128);:A = A + l:GOTO50 

40 PRINT CHR$(PEEK(S)); 

50 NEXT S 

Each keyword has its code, and 
when the interpreter comes across 
one of the codes, it translates it 
into the proper word. By using the 
POKE command, you can add 
statements, change statements, and 
delete a keyword. We shall work 
with this principle. 

How will we set up a test for the 
statement that we wish to find? 
The obvious way is by setting up a 
program loop. But to set a loop 
properly, we need to know where 
the loop begins and ends. By 
referring to the memory map in 
the Level II manual, we find that 
RAM starts at 17129, and ends at 
locations that vary according to 
memory size (4K ends at 20479, 
16K ends at 32767, 32K ends at 
49151, and 48K ends at 65535). 

We can easily see that a loop 
from 17129 to 32767 (assuming a 
16K machine) would take a long, 
long, long time. An easy way 
around this is to take a guess (or 
type ? MEM) to see how much 
memory the program takes up, and 
set up the loop accordingly. 

Once we have a loop set up, we 
need to put a PEEK statement in 
the program. This PEEK statement 
would interrogate (like that word?) 
the memory location set up by the 



loop. If the location holds the code 
of the keyword, we POKE in the 
new value for the keyword we 
want. 

Here's a simple program to 
demonstrate all that we have 
covered so far. 

10 FOR P = 17129 TO 18500 

20 IF PEEK(P)= 171 THEN 40 

30 NEXT P:END 

40 POKE P, 141 

50 END 

60 LSET 10 

In the above program, Hne 10 
sets up a loop. This loop is larger 
than need be, but it's just an 
example. Line 20 examines the 
contents of the memory location 
set up in the loop. If the contents 
are equal to 171 (the code for the 
LSET command), then we branch 
to Hne 40 which POKEs memory 
location P with 141 (the code for 
the GOTO command), then ENDs 
the program. If location P isn't 
equal to 171, the loop goes back 
through the next location. You 
may notice that line 60 doesn't 
make any sense. LSET will bring 
about a L3 error in Level II 
BASIC. 

Type the program in, and LIST 
it. Look at line 60. That's going to 
be your last look at the LSET 
command. RUN the program. 
When the computer comes back 
with a "READY" prompt, LIST 
the program, and line 60 should 
make sense. The line should look 
like this: 

60 GOTO 10 

You are probably saying "Very 
cute. But so what?" Simple. Let's 
suppose you write a neat program 
that requires a line to be entered, 
or modifications need to be done 
to it that would eat up memory. 
This would confuse any users other 
than yourself, because they: 

a) May not understand 
programming, or 



b) they may understand but 
don't want to go to all the trouble, 

or 

c) they don't know what the 
heck you're talking about! 

Look at this program for an 
idea: 

10 CLS 

20 INPUT"PRESS 'S' FOR 

SINE OF 56, 'C FOR 

COSINE"; A$ 

30 FOR P = 17129 TO 17900 

40 IF PEEK(P)= 171 THEN 50 

ELSE NEXT:END 

50 IF A$ = "S" THEN POKE 

P, 226 ELSE POKE P, 225 

60 PRINT LSET(56); 

If we look at this program, we 
find out something very important: 
The POKE action only changes the 
keyword. It doesn't insert or 
remove parentheses. 

What we could do, very simply, 
is place two LSETs together, 
modify our program so that it 
searches for two LSETs together, 
then modify it so it would print 
"B = ". This is the the easiest way 
to illustrate how not only 
keywords are subject to 
modifications. 

Modify our second program by 
adding another LSET immediately 
before the other LSET. DO NOT 
leave a space between them. 
Change line 20 to read: 

20 IF PEEK(P)= 171 AND IF 

PEEK(P + !)=171THEN40 

Change line 40 to read: 

40 POKE P, 66:POKE P + 1,61 

RUN the program, and when 
you list line 60, it should read 
B=10. 

These programs have barely 
touched on what can be achieved if 
you put your mind to it. Imagine 
how much time could be saved if 
you wrote a program that solves 
for equations, but writes in its own 
intrinsic functions where you ^^ 
specify. Hmmm ^^ 



S-80 ONE LINERS 

1 CLEAR ! F0RT=1TQ6 ! A$=A$+CHR$ ( RND(59 ) +128 ); NEXT : A*=A$+CHR» ( 32 ) : FO 
RT=1T0300!PRINTA$;;NEXT:GOT01 p^j^ ginger 

Washington, DC 

1 RANDOH!CLS:FORY=1TORND(23);FORT=15360T016383STEF'RN.D(63);OUT255 
,i:0UT255,8;A=F'EEK(l't351):A=A+RND(13)!P0KET,A:P0KE16'H5,RW)(16): 
OUT255,0;NEXT T;F0R T=16383T015360STEP-RND(6'1);OUT255,1;OUT255,8 
:A=PEEK(11351):PDKET,A!POKE16115,RND(16)!OUT255,0*.ND{TT,Y;R'UN 

Steve Rejto 
Green wick, CT 
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MONITOR 



by W. J. Kutlever 

THE INVESTOR'S KEY TO 
OPTIONS MARKETING!!! 

Make Informed trading 
decisions in minutes with 
this easy to use package. 
WHO: Investors, Option 
Writers or Purchasers use 
this program. 

WHAT: Analyzes option 
prices and responds to cur- 
rent market prices as soon 
as you receive them. 
WHY: Assesses the value 
of a given option. Monitors 
the value of your in- 
vestments. Helps you 
decide when to purchase 
or to close out your op- 
tions. 
HOW: Use S-80 Disk. 

Next to your broker this 
program Is your best op- 
tion In creative investing. 
Analyze option prices 
before risking any money. 
Convenient features are 
data entry and flexibility In 
handling a wide variety of 
situations. 

Available for Level II, 16K 
S-80 Microcomputers. 

$29.95 
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/Turmi 

by Bruce Chalmers 

BE.i«E. 
31,73 

'iBi.a 

52 




Stumped by statistics? Here's the 

program for youl 

Written by a statistician but designed 

for use in the real world. Helps you 

create files; examine and edit data; 

and understand descriptive statistics. 

Sophisticated enough for the 

working statistician. This powerful 

interactive statistical package 

features complete error diagnostic^ 

missing value specification, and 

sophisticated graphics. 

S-80 Disk 32K and 48K versions on 
one disk $29.95 
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Nine Games 
for 

Preschool 
Children 



by George Blank 

Even preschoolers deserve a 
shot at the wonders of 
microcomputing. With these nine 
games, they not only will have a 
chance to tickle the keyboard, but 
learn letters and numbers to boot. 
And if that isn't enough, they'll 
have a good time doing so. What 
more could a parent ask for? Here 
are education and entertainment 
for the very young in a single 
package! 

S-80, Level II, 16K, Cassette $9.95 
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PASCAL -80" 



on your S-80™ 




Phelps Gates, the author of "APL-80", brings you "Pascal-80" for your S-80. Now 
you can add another dimension to your programming skills by using this fast version 
of the compiled language Pascal. 

"Pascal-80" is a powerful, structured and well-defined language for the S-80 
microcomputer. This easy-to-use language makes writing well-structured, and 
therefore easily understandable programs simple. "Pascal-80" supports most of the 
features of UCSD Pascal, including RECORD, SET (to 256 members), FILE (text and 
record oriented), n-dimensional ARRAY (and ARRAY of ARRAY, etc.), global GOTO, 
ELSE in CASE statements, and BCD arithmetic accurate to a full 14 places (including 
log and trig functions), 6-digit optional. "Pascal-80" features a 23600 byte workspace 
in 48K, a 1000 line per minute compiler, an easy-to-use text editor, and plain English 
error messages, all the features you would expect in a Pascal costing hundreds 
more. 



Boolean, integer, char, real, real6, and text. 

Maxint, minint, true, false, and pi. 

Input, output, and Ip. 

Read, readin, vi/rite, writein, reset, rewrite, close, seek, 

els, and poke. 

Abs, arctan, call, chr, cos, eof, eoln, exp, inkey. In, mem, 

odd, ord, peek, pred, round, sin, signif, sqr, sqrt, succ, and 

trunc. 

"Pascal-80" does not implement variant records, pointer and window variables, or 
functions and procedures used as parameters. 
S-80 32K Disk $99.95 



Variable Types: 
Constants: 
Files: 
Procedures: 

Functions: 




6 South St .Mlllord. NH 03055 (503)673-5144 
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SoftSide, April 1981 



95 



TERMS AND CONDITIONS 



DOMESTIC: 

TSE/HARDSIDE accepts VISA 
and MASTERCARD, certified 
checl<s and money orders. 
Personal checks are accepted 
(tal<es 3 weeks to clear). 
TSE/HARDSIDE pays all shipping 
charges (within the 48 states) on 
all PREPAID orders OVER $100.00. 
On all PREPAID orders UNDER 
$100 a handling charge of $2.50 
must be added. 

ALASKA/HAWAII: 

All orders from Alaska or Hawaii 
will be charged actual shipping 
charges. Orders under $100.00 are 
subject to a $2.50 handling charge 
in addition to actual shipping 
charges. 

C.O.D.: 

C.O.D. orders are accepted for 
U.S. shipment only (orders over 
$250.00 require a 25% deposit). 
There is a $5.00 handling charge in 
addition to normal shipping 
charges. 

PURCHASE ORDERS: 

Purchase orders are accepted 
only from U.S. schools and 
universities. The minimum 
purchase is $100.00. Our terms are 
NET: 10 days. There is a $10.00 
handling charge plus actual 
shipping charges. 

CANADA/MEXICO: 

Canadian and Mexican orders 
are accepted. However, we cannot 
ship C.O.D. to Canada or Mexico. 
The preferable method of payment 
is by bank credit card (VISA or 
MASTERCARD). NO PERSONAL 
OR COMPANY CHECKS. We will 
accept a bank check if it has been 
preprinted for payment in U.S. 
DOLLARS. The handling charge on 
all Canadian or Mexican orders is 
$5.00 plus actual shipping charges. 

FOREIGN: 

Payment must be by a BANK 
CHECK drawn on a U.S. BANK, 
payable in U.S. DOLLARS. We will 
also accept affiliated bank credit 
cards of VISA or MASTERCARD. 
All shipping and duty charges are 
the customer's responsibility. All 
overseas orders are subject to a 
$10.00 handling charge plus actual 
shipping charges. 

DAMAGE: 

Claims must be made within three 
working days of receipt of product. 
All requests must be made by 
telephone to the TSE/HARDSIDE 
Customer Service Department at 
1-603-673-5144. 



RETURNS: 

Any unauthorized returns will be 
refused upon delivery. If you wish 
to return an item for ANY reason, 
CALL FIRST! All returns must have 
a Return Authorization Number 
clearly marked on the outside of 
the package. Any hardware items 
to be restocked will be subject to a 
10% restocking charge. Any 
software items to be restocked will 
be subject to a 20% restocking 
charge. Any item to be restocked 
must be in resaleable condition. 

SHIPPING: 

Orders are normally processed 
within 24 hours of receipt, with 
shipping taking place within three 
to five working days. If the item is 
out-of-stock and delivery is not 
expected within ten working days 
we will send a postcard notifying 
the customer of the expected delay 
(in which case there would be a 
complete refund if the customer 
wishes to cancel the order). 

PRICES: 

Prices and specifications are 
subject to change without notice. 
We are not responsible for 
typographical errors including 
prices. 

WARRANTY: 

TSE/HARDSIDE Limits the 
liability of its warranty to the repair 
or replacement (our option) of a 
defective product, and can assume 
no responsibility for the way the 
products are used. Software 
products will be replaced on a 
direct exchange basis, if they are 
found to be defective within 10 
days of receipt. Hardware products 
carry the warranty listed in the 
product description. No other 
warranty is to be assumed. 

SERVICE: 

HARDSIDE maintains a service 
department for repair of items it 
covers by the HARDSIDE warranty. 
Our service department will also 
repair items not covered by the 



HARDSIDE warranty (or out-of- 
warranty) on a fee basis. To 
contact the service department call 
1-603-673-5144. 

TO ORDER: 

You may place your order by 
calling our toll-free order line at 
1-800-258-1790. In New Hampshire 
call 1-673-5144. The hours are 9 
a.m. to 9 p.m. Monday through 
Friday and 12 noon to 4 p.m. on 
Saturday. Technical assistance 
and customer service calls are 
taken from 9 a.m. to 5 p.m. Monday 
through Friday on the 
1-603-673-5144 number only. When 
placing an order have your credit 
card ready. You may also order by 
mail: TSE/HARDSIDE, 6 South 
Street, Milford, NH 03055. 

ORDER PICK-UP: 

TSE/HARDSIDE maintains an 
order pick-up center in "Computer 
Haven" at 4 South Street in 
Milford, NH. It is best to first call 
"Computer Haven" at 
1-603-673-5144, to confirm if the 
items you wish are in stock. 
"Computer Haven" hours are from 
2:30 p.m. to 5:30 p.m. Monday 
through Friday and from 10 a.m. to 
5 p.m. on Saturday. Please 
remember that since "Computer 
Haven" sells all TSE/HARDSIDE 
products at mail-order prices we 
cannot always offer all retail or 
demonstration services at this 
facility. 

READ CAREFULLY 

If you live within the Continental 
U.S. and are prepaying your order: 

If your order is less than $100.00, 
you must include $2.50 for 
handling. If your order is more than 
$100.00 and you are prepaying your 
order, we will pay all shipping and 
handling charges (Continental U.S. 
only). 

CATALOG: 

For detailed descriptions of our 
software, hardware, and supplies 
send $2.00 for the TSE Catalog and 
receive a certificate worth $4.00 off 
any purchase. 



?? MOVING ?? 

TO CORRECT OR CHANGE YOUR ADDRESS ATTACH 

LABEL FROM YOUR LATEST COPY HERE AND PRINT NEW 

ADDRESS BELOW: 

Name 

Address 

City 

State 

Zip 

MAIL TO: SoftSlda Publications, P.O. Box 68, Milford, NH 03055 
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Let our 
fingers 

do the typing! 

With a SoftSide Disk or Cassette subscription 
you can get each month's TRS-80, APPLE, or 
ATARI programs delivered on disk or cassette 
with every issue of your SoftSide. No more hours 
of typing. No hunting for typing mistakes. The 
programs for your computer are tested and ready 
to go the day you receive them. 

If you already receive SoftSide magazine, you 
will receive credit for the remainder of your 
subscription toward your new cassette or disk 
subscription. 

SPECIAL: 

Magazine $18/year 
Magazine and Cassette $39/6 months 
Magazine and Cassette $75/year 
Magazine and Disk $64/6 months 
Magazine and Disk $125/year 

Make your SoftSide library complete with back 
issues of SoftSide: APPLE, SoftSide: S-80, and 
PROG/80. Programs, games, complete documentation 
and lots more! If you have missed out on any past 
issues, now is the time to order. 
SoftSide: S-80, and APPLE Back Issues 
(magazine only) $2.50 
PROG/80 Back Issues $4.00 
Magazine with Cassette programs $9.95 
Magazine with Disk programs $14.95 
New Super SoftSide Back Issues 
(Magazine Only) 

August or September, 1980 $3.00 
October, 1980 to present $3.50 
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6 South St.Millord, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 
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Unlock the hidden power 
of your computer for fast and 
easy programming! Use ROM 
routines in your BASIC 
and Assembly Language 
Drograms! All you need to 
<now is in... 



.^.«*««*-* 




INCLUDES: 

SUPERMAP 

From Fuller Software ($18.95) 

TRS-80 

DISASSEMBLED 

HANDBOOK 

by Robert Richardson ($10.00) 

HEX MEM 

by John Phillipp 
Monitor written in BASIC 

Z-80 
DISASSEMBLER 

by George Blank 



ORDER TOLL-FREE 
(In NH call 673-5144) 



1-800-258-1790 

The ScHyyare Exchange 



A SoftSide Publication 

Guide to Level M BASIC 
and DOS Source Code 

Description of the contents of the Level II BASIC ROM by 
memory locations, by function, and in lesson format. Includes 
several BASIC and Assembly Language programs in listing 
format to examine and use ROM routines. 



